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ソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
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:="シート2「C3」へ移動します!" '「H3」セルに「電子メール」へのハイパーリンクを挿入 .Hyperlinks.Add Anchor:=.Range("H3"), _ Address:="mailto:test@example.co.jp?subject=テストメール!", _ ScreenTip:="メールソフトを起動します!", _ TextToDisplay:="E-MAIL" End With End Sub |
実行結果
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_Hyperlinks() Dim str As String str = "ハイパーリンク数(削除前):" & ActiveSheet.Hyperlinks.Count & vbCrLf ActiveSheet.Hyperlinks.Delete str = str & "ハイパーリンク数(削除後):" & ActiveSheet.Hyperlinks.Count End Sub |