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

Question

我正在使用以下代码将 Web 浏览器控件添加到 PowerPoint 幻灯片，

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

上面的代码在除PowerPoint 2013 (32bit and 64bit)之外的所有 PowerPoint 版本中都能正常工作。我收到以下错误消息，

在此处输入图像描述

在PowerPoint 2010（32 位和 64 位）中，添加了 Web 浏览器控件，但该控件是黑色的，直到在幻灯片放映中查看它。然后它会刷新。

如何解决这个问题？

score 2 · Accepted Answer

您看到此错误是因为出于安全原因，Office 2013 中的 Web 浏览器控件已过时。

有一种解决方法，但是，它会使您的机器面临漏洞攻击的风险

1 回答 1