ハイパーリンク（Hyperlinks オブジェクト）

2015/09/19 2015/09/21

Hyperlinks オブジェクト

ワークシートまたはセル範囲のワークシートコレクションを表します。ハイパーリンクを挿入するには、Hyperlinks.Add メソッド を使用します。

【書式】

object.Hyperlinks

引数・戻り値

object ・・・対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。

Hyperlinks オブジェクトのメソッド

Hyperlinks.Add メソッド

【書式】

object.Hyperlinks.Add ( anchor, address [, subaddress, screentip, texttodisplay ] )

引数・戻り値

object ・・・対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
anchor ・・・対象となる Range オブジェクト または、Shape オブジェクト を指定します。省略不可です。
address ・・・ハイパーリンクのアドレスを指定します。この引数は、省略不可です。任意のセルに対してハイパーリンクを設定する場合は、空文字(“”) を指定します（ address:=”” ）。
subaddress ・・・任意のセルにジャンプする場合に指定します（省略可）。
　（例）「Sheet2」の「A3」セルへのリンクを指定する場合
　　subaddress := “Sheet2!A3”
　（例）「Book1.xlsx」の「Sheet1」の「B5」セルへのリンクを指定する場合
　　subaddress := “[Book1.xlsx]Sheet1!B5”
screentip ・・・ハイパーリンク上をマウスポインターで指した場合に表示されるヒントを指定します。（省略可）。
texttodisplay ・・・ハイパーリンクに表示する文字列を指定します（省略可）。
新しいハイパーリンクを表す Hyperlink オブジェクト を返します。

Hyperlinks.Delete メソッド

【書式】

object.Hyperlinks.Delete

引数・戻り値

object ・・・対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
対象となるワークシート上またはセル範囲内の Hyperlink オブジェクト をすべて削除します。

Hyperlinks オブジェクトのプロパティ

Hyperlinks.Count プロパティ

【書式】

object.Hyperlinks.Count

引数・戻り値

object ・・・対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
対象となるワークシートまたはセル範囲内の Hyperlink オブジェクト の数を返します。

Hyperlinks.Item プロパティ

【書式】

object.Hyperlinks.Item ( index )

引数・戻り値

object ・・・対象となる Worksheet オブジェクト または、Range オブジェクトを指定します。
index ・・・ 1 以上の整数値を指定します。
単一のオブジェクトを取得します。各ハイパーリンク（ Hyperlink オブジェクト ）へアクセするには、引数 index に 1 以上の整数値を指定します。

Item プロパティ はデフォルトのプロパティなので省略可能です。

Hyperlinks.Itme ( index ) のプロパティに関しては、ハイパーリンク（Hyperlink オブジェクト）を参照してください。

Hyperlinks.Itme ( index ) のメソッドに関しては、ハイパーリンク（Hyperlink オブジェクトのメソッド）を参照してください。

Hyperlinks オブジェクト使用例

サンプルVBAソース

　
Sub Sample_HyperlinksAdd()


    With ActiveSheet

        '「B3」セルにハイパーリンクを挿入
        .Hyperlinks.Add Anchor:=.Range("B3"), _
                        Address:="http://www.yahoo.co.jp/", _
                        ScreenTip:="Yahoo! のトップヘージへ移動", _
                        TextToDisplay:="Yahoo! JAPAN"


        '図形の挿入
        .Shapes.AddShape msoShapeNoSymbol, 150, 100, 220, 125
        
        '図形にハイパーリンクを挿入
        .Hyperlinks.Add Anchor:=.Shapes.Item(1), _
                        Address:="http://www.google.co.jp", _
                        ScreenTip:="Google 検索へ移動", _
                        TextToDisplay:="図形のハイパーリンク"

 
        '「E3」セルに「別シートのセル」へのハイパーリンクを挿入
        .Hyperlinks.Add Anchor:=.Range("E3"), _
                        Address:="", _
                        SubAddress:="Sheet2!C3", _
                        ScreenTip:="シート２「C3」へ移動します！"
    
    
        '「H3」セルに「電子メール」へのハイパーリンクを挿入
        .Hyperlinks.Add Anchor:=.Range("H3"), _
                        Address:="mailto:test@example.co.jp?subject=テストメール！", _
                        ScreenTip:="メールソフトを起動します！", _
                        TextToDisplay:="E-MAIL"

    End With
    

End Sub

Sub Sample_HyperlinksAdd()

With ActiveSheet

'「B3」セルにハイパーリンクを挿入

.Hyperlinks.Add Anchor:=.Range("B3"), _

Address:="http://www.yahoo.co.jp/", _

ScreenTip:="Yahoo! のトップヘージへ移動", _

TextToDisplay:="Yahoo! JAPAN"

'図形の挿入

.Shapes.AddShape msoShapeNoSymbol, 150, 100, 220, 125

'図形にハイパーリンクを挿入

.Hyperlinks.Add Anchor:=.Shapes.Item(1), _

Address:="http://www.google.co.jp", _

ScreenTip:="Google 検索へ移動", _

TextToDisplay:="図形のハイパーリンク"

'「E3」セルに「別シートのセル」へのハイパーリンクを挿入

.Hyperlinks.Add Anchor:=.Range("E3"), _

Address:="", _

SubAddress:="Sheet2!C3", _

ScreenTip:="シート２「C3」へ移動します！"

'「H3」セルに「電子メール」へのハイパーリンクを挿入

.Hyperlinks.Add Anchor:=.Range("H3"), _

Address:="mailto:test@example.co.jp?subject=テストメール！", _

ScreenTip:="メールソフトを起動します！", _

TextToDisplay:="E-MAIL"

End With

End Sub

実行結果

サンプルVBAソース

　
Sub Sample_Hyperlinks()

    Dim str As String
    
    str = "ハイパーリンク数（削除前）：" & ActiveSheet.Hyperlinks.Count & vbCrLf
    
    ActiveSheet.Hyperlinks.Delete
    
    str = str & "ハイパーリンク数（削除後）：" & ActiveSheet.Hyperlinks.Count

End Sub