Excel VBA ハイパーリンクを追加する方法 Hyperlinks.Add

スポンサーリンク

ハイパーリンクを追加する方法

Hyperlinks.Addメソッドを使用して指定された範囲または図形にハイパーリンクを追加する方法を解説します。

やりたい事

VBAを使用して外部サイトへのハイパーリンクを作成したり、別ブックのセルへのリンクを作成したり、同じブックの別シートのセルへのリンクを作成したいと思います。

外部サイトへのハイパーリンク作成のサンプルコード

Sub hyperlinkSample()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B2"), _
        Address:="https://dolphinpg.net/", _
        TextToDisplay:="Link"
End Sub

上記のコードを実行するとハイパーリンクが以下の図のように作成されます。

ハイパーリンクをクリックすると既定のブラウザで外部サイトへリンクします。

別ブックのセルへのハイパーリンク作成のサンプルコード

「Address」に別ブックのパスを記載します。
「SubAddress」に指定するシート名とセルを指定します。

Sub hyperlinkSample2()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B3"), _
        Address:="D:\Excel\hyperlink.xlsx", _
        SubAddress:="link先!C3", _
        TextToDisplay:="別ブックにリンク"
End Sub

上記のコードを実行するとハイパーリンクが以下の図のように作成されます。

ハイパーリンクをクリックすると指定した別ブックの指定セルへリンクします。

同じブックのセルへのハイパーリンク作成のサンプルコード

リンク先と同じブックの場合は、「Address」を「””」で指定します。

Sub hyperlinkSample3()
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("B4"), _
        Address:="", _
        SubAddress:="Sheet1!C3", _
        TextToDisplay:="同じブックにリンク"
End Sub

構文

expressionはHyperlinksオブジェクトを表す変数です。

expression.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

以下はパラメータになります。

名前必須/オプション説明
Anchor必須ハイパーリンクのアンカーを指定します。RangeオブジェクトまたはShapeオブジェクトを指定します。
Address必須ハイパーリンクのアドレスを指定します。
SubAddressOptionalハイパーリンクのサブアドレスを指定します。
AnchorOptionalハイパーリンク上をマウスポインターで指した場合に表示されるヒントを指定します。
TextToDisplayOptionalハイパーリンクで表示されるテキストを指定します。

参考資料

Docs

コメント

タイトルとURLをコピーしました