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

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

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

上述代码在除PowerPoint 2013（32位和64位）之外的所有PowerPoint版本中都能正常工作。我收到以下错误消息

在PowerPoint 2010中（32位和64位）添加了web浏览器控件，但该控件在幻灯片放映中查看之前为黑色。然后它就会刷新

---

如何修复此问题？

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

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

---

谢谢。这可能就是问题所在。我会处理好这件事，然后再打给你。它很有效。但是，我有一个问题：当添加OLEObject Web浏览器控件（打开PDF文件）时，形状变为黑色。你知道为什么吗？在幻灯片模式下查看时，它会变得正常。我想这就是默认情况下形状的颜色。您可以尝试添加可选参数displaysicon:=True，该参数将形状显示为图标。我希望我已经赢得了你的赏金：）谢谢你的帮助。如果给定“DisplayAsIcon:=True”，则它始终只显示图标，而不显示内容。无论如何，再次谢谢你。