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

回答