PowerPoint VBAでブラウザを起動して指定のWEBサイトを開くマクロをご紹介します。
お気に入りのサイトをリボンに追加しておけば、PowerPoint上から1クリックでWEBサイトを参照することが可能です。
Windowsのユーザー名を取得するマクロ
コード
Sub OpenWebsite() Dim URL As String 'ここに開きたいWEBサイトのURLを入力してください URL = "https://ppdtp.com" ActivePresentation.FollowHyperlink Address:=URL, NewWindow:=True End Sub
このコードは、指定したURLのWEBサイトを新しいウィンドウで開きます。URL変数の値を開きたいWEBサイトのURLに変更して実行すると、指定したWEBサイトが開きます。
「ActivePresentation.FollowHyperlink」は、現在開いているプレゼンテーションからハイパーリンクを開くためのメソッドです。
「Address:=URL」は開きたいウェブサイトのURLを指定するためのパラメーター、「NewWindow:=True」は新しいウィンドウでリンクを開くためのパラメーターになります。
WEBサイト開くボタンをリボンに追加する
マクロをアドイン化すると、リボンにWEBサイトを開くボタンを追加することが可能です。
詳細は、次の記事で解説しています。
PowerPointでマクロをアドイン化しリボンに追加する方法
PowerPointでマクロをアドイン化しリボンに追加する方法
PowerPointで複数のマクロをまとめてアドイン化し、リボンにマクロの実行ボタンを追加する方法を…