ハイパーリンク(Hyperlink オブジェクト)
2015/09/21
Hyperlink オブジェクト
Hyperlinks コレクション のメンバーです。セル範囲やワークシートは、複数のハイパーリンクを持つことができます。単体の Hyperlink オブジェクトを取得するには、Hyperlinks(index) プロパティを使用します。引数 index には、ハイパーリンク番号を指定します。
Hyperlink オブジェクト のメソッドに関しては、ハイパーリンク(Hyperlink オブジェクトのメソッド) 、Hyperlinksに関しては、ハイパーリンク(Hyperlinks オブジェクト)を参照してください。
object.Hyperlink
引数・戻り値
- object ・・・ 対象となる Shape オブジェクト または、Range オブジェクトを指定します。
Hyperlink オブジェクト のプロパティ
Hyperlink.Name プロパティ
object.Hyperlink.Name
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- オブジェクトの名前を表す文字列型(String)の値を返します。(セルに挿入されたハイパーリンクの場合は、TextToDisplay プロパティ と同じ値、図形の場合は、Address プロパティ と同じ値になるようです。)
Hyperlink.Range プロパティ
object.Hyperlink.Range
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- 指定されたハイパーリンクが挿入されているセル範囲を Range オブジェクト で返します。
Hyperlink.Address プロパティ
object.Hyperlink.Address
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- ハイパーリンクのアドレスを取得または、設定します。
Hyperlink.SubAddress プロパティ
object.Hyperlink.SubAddress
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- 任意のセルへのハイパーリンクが設定されている場合のセルのアドレスを取得または設定します。
「Book1.xlsx」の「Sheet1」の「B5」セルの場合:”[Book1.xlsx]Sheet1!B5″
Hyperlink.TextToDisplay プロパティ
object.Hyperlink.TextToDisplay
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- ハイパーリンクの表示テキスト(セルに表示される文字列)を取得または設定します。既定値は、ハイパーリンクのアドレスです。
Hyperlink.ScreenTip プロパティ
object.Hyperlink.ScreenTip
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- ハイパーリンク上をマウスポインターで指した場合に表示されるヒントを取得または設定をします。
Hyperlink.Type プロパティ
object.Hyperlink.Type
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- ハイパーリンクの種類を 表す値(MsoHyperlinkType 列挙型 の定数)を取得または設定します。
定数 値 内容 msoHyperlinkRange 0 ハイパーリンクは、セルRange オブジェクトに適用されます msoHyperlinkShape 1 ハイパーリンクは、図形Shape オブジェクトに適用されます
Hyperlink.EmailSubject プロパティ
object.Hyperlink.EmailSubject
引数・戻り値
- object ・・・ 対象となる Range オブジェクト または、Shape オブジェクトを指定します。
- index ・・・
- 指定されたハイパーリンクのリンク先が電子メールの場合、メールの件名を表す文字列を設定します。件名はハイパーリンクのアドレスに追加されます。値の取得および設定が可能です。
また、このプロパティの値は、同じ Hyperlink オブジェクトでの Address プロパティで設定される電子メールの件名よりも優先されます。
Hyperlink オブジェクト 使用例
サンプル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 |
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 |
Sub Sample_Hyperlink() Dim str As String, i As Long str = "ハイパーリンクの数:" & ActiveSheet.Hyperlinks.Count & vbCrLf On Error Resume Next For i = 1 To ActiveSheet.Hyperlinks.Count str = str & vbCrLf & "ハイパーリンク【" & i & "】" & vbCrLf str = str & " Name :" & vbTab & ActiveSheet.Hyperlinks.Item(i).Name & vbCrLf str = str & " Address:" & vbTab & ActiveSheet.Hyperlinks.Item(i).Address & vbCrLf str = str & " SubAddress:" & vbTab & ActiveSheet.Hyperlinks.Item(i).SubAddress & vbCrLf str = str & " ScreenTip:" & vbTab & ActiveSheet.Hyperlinks.Item(i).ScreenTip & vbCrLf str = str & " TextToDisplay:" & vbTab & ActiveSheet.Hyperlinks.Item(i).TextToDisplay & vbCrLf str = str & " Rangeアドレス:" & vbTab & ActiveSheet.Hyperlinks.Item(i).Range.Address & vbCrLf str = str & " EmailSubject:" & vbTab & ActiveSheet.Hyperlinks.Item(i).EmailSubject & vbCrLf str = str & " HyperLink種類:" & vbTab & _ IIf(ActiveSheet.Hyperlinks.Item(i).Type, "図形", "セル") & vbCrLf Next i MsgBox str End Sub |
実行結果
関連記事
-
入力規則(エラーメッセージの設定)Validation オブジェクト
無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …
-
文字列を縮小して全体を表示(ShrinkToFit プロパティ)
ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …
-
セル・セル範囲をコピーする(Copy メソッド)
Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …
-
セル範囲を結合・結合を解除(Merge メソッド・UnMerge メソッド)
Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …
-
オートフィルタ(日付による抽出)AutoFilter メソッド
日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …
-
対象のセルが配列数式の一部かどうか(HasArray プロパティ)
HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …
-
列名を取得、列番号を取得(Address プロパティ,Column プロパティ)
列番号を取得する セル番地(「A1」や「B3」)や列名(「A」「B」「C」 …
-
セルの文字列を取得(Text プロパティ)
Text プロパティ セルに表示されている文字列を取得します。Text プロパテ …
-
並べ替え(Sort オブジェクト, SortFields コレクション)
Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …
-
セル範囲内を検索(Find メソッド)
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …