Shapes.AddOLEObject方法在PowerPoint 2013（32位和64位）中不起作用？

Set oShp = oSld.Shapes.AddOLEObject(Left:=100, Top:=100, Width:=200, Height:=300, Classname:="Shell.Explorer", Link:=msoFalse)

上面的代碼工作正常，在所有版本的PowerPoint除了的PowerPoint 2013（32位和64位）。我收到以下錯誤消息，

enter image description here

在PowerPoint 2010中（32位和64位）的Web瀏覽器控件是添加，但控制是黑的，直到在幻燈片放映觀看它。然後它會刷新。

如何解決這個問題？

2014-12-27 Codename K

由於安全原因，您正在看到錯誤，因爲Web瀏覽器控件在Office 2013中已過時。

有一種變通方法但是，它將把你的機器在漏洞的攻擊

2014-12-31 22:44:38

謝謝風險。這可能是問題。我會通過這個並回到你身邊。 – 2015-01-01 04:33:07

它的工作原理。但是，我有一個問題：當添加OLEObject Web瀏覽器控件（打開PDF文件）時，形狀變爲黑色。你知道爲什麼嗎？在幻燈片視圖模式下查看時會變得很正常。 – 2015-01-02 13:08:29

我想這就是Shapes如何默認着色。您可以嘗試添加可選參數DisplayAsIcon：= True，將形狀顯示爲圖標。希望一切都有所幫助 – 2015-01-02 18:39:43

回答