ハイパーリンク(Hyperlinks オブジェクト)
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ソース
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 |
実行結果
関連記事
-
網かけ(パターン)の取得・設定(Pattern プロパティ)
網かけ(パターン)を取得・設定する セルの背景に網かけ(パターン)を設定したり、 …
-
数式を設定・取得する(Formula プロパティ・FormulaR1C1 プロパティ)
Formula プロパティ(FormulaR1C1 プロパティ) Formula …
-
アクティブなセルを参照する(ActiveCell プロパティ)
ActiveCell プロパティ ActiveCell プロパティは、各ウィンド …
-
オートフィルタ(矢印を非表示にする)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
使用中のセル範囲を取得(CurrentRegion プロパティ)
CurrentRegion プロパティ CurrentRegion プロパティは …
-
指定したセルへ移動(Goto メソッド)
指定したセルへ移動 指定したシートの指定したセルへジャンプするには、Goto メ …
-
フリガナの取得(GetPhonetic メソッド)
GetPhonetic メソッド GetPhonetic メソッドは、指定した文 …
-
オートフィルタ(AutoFilter メソッド)
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
非連続のセルが選択されているか確認する(Areas コレクション)
Areas コレクション の使い方 複数の離れた位置にあるセル範囲を選択した場合 …
-
終端セルを参照する(End プロパティ)
End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …