【パワポVBA】ブラウザを起動してWEBサイトを開くマクロ

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で複数のマクロをまとめてアドイン化し、リボンにマクロの実行ボタンを追加する方法を…

ppdtp.com

2022.03.23