PowerPoint 2016 VBAでWebBrowserコントロールに動的にアクセスするにはどうすればよいですか？

Question

PowerPoint 2016 VBAのスライド上のWebブラウザーコントロールにアクセスしようとしています。

Slide1.WebBrowser1を使用すると、正常に動作します。例：コードを任意のスライドで使用したいと思います。

しかし、SSW.View.Slideを使用すると、Webブラウザーコントロールにアクセスできないようです。関連するShapeを取得できますが、WebBrowserにキャストする方法が見つかりません。これは動作しません：

Dim sld As Slide 
Set sld = SSW.View.Slide 
sld.WebBrowser1.Navigate varURL 

は私がキャスティングまたは私は上.Navigateを呼び出すことができるWebブラウザーを得Shapesコレクションを使用して上記のないバリエーションを見つけることができません。

誰でも手助けできますか？

Answer 1

WebBrowserコントロールは、セキュリティの問題によりOffice 2013以降、Microsoftによってデフォルトで無効にされています。挿入しようとすると、エラーメッセージが表示されます。

"ActiveXコントロールを挿入できません。

kb2793374のようにレジストリを微調整することで、セキュリティ上のリスクはあるものの、プレゼンテーションが表示されているすべてのマシンで実行する必要があるという追加の問題があるため、推奨できません。

WebBrowserコントロールオブジェクトはスライドオブジェクトに配置されているため、複数のスライドで使用する場合は、そのオブジェクトを使用するすべてのスライドにオブジェクトを複製する必要がありますに。

あなたはこのようにVBAプロジェクトのスライドを参照することにより、標準のコードモジュールからNavigateメソッドを使用することができます。

Slide1.WebBrowser1.Navigate "http://google.com" 

Answer 2

は、ActiveXオブジェクトへの参照を取得するために、この例を見てみましょう - http://skp.mvps.org/ppt00042.htmを。同様のアプローチを使用して、Webブラウザコントロールへの参照を取得することができます。