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 (32 ビットおよび 64 ビット)を除くすべての PowerPoint バージョンで正常に動作します。次のエラーメッセージが表示されます。

ここに画像の説明を入力

PowerPoint 2010 (32 ビットおよび 64 ビット)では、Web ブラウザーコントロールが追加されますが、コントロールはスライドショーで表示するまで黒くなります。するとリフレッシュされます。

これを修正する方法は？

score 2 · Accepted Answer

セキュリティ上の理由から、Office 2013 では Web ブラウザーコントロールが廃止されたため、このエラーが表示されています。

ただし、回避策があります。マシンを脆弱性攻撃の危険にさらすことになります

1 に答える 1