ハイパーリンクに設定できる種類
このページではハイパーリンクに設定できるURL、ファイル、メールアドレス、Excelブックの指定位置について紹介しています。
ハイパーリンクの設定に使うHyperlinks.Addメソッドの詳細については「VBAでハイパーリンクを設定(Hyperlinks.Add)」をご参照ください。
ハイパーリンクとして設定できる種類には「URL」「ファイル」「メールアドレス」「Excelブックの指定位置」があります。それぞれHyperlinks.Addメソッドでハイパーリンクを作成するのは同じですが、引数Addressの設定内容が異なります。
どのように違うのかを整理します。
引数の違い
| 種類 | 引数Addressの設定 | 引数SubAddressの設定 |
|---|---|---|
| URL | URLを指定する。 | ページ内ジャンプ時のみ指定。そうでない場合は指定なし（””） |
| ファイル（絶対パス） | ドライブ名からフルパスを指定する。 | 指定なし（””） |
| ファイル（相対パス） | 対象ブックから見た相対パスを指定する。 | 指定なし（””） |
| メールアドレス | mailto:、cc=、bcc=、subject=、body=を指定する。cc=等で不要なものは省略可。 | 指定なし（””） |
| ブック指定位置 | 指定なし（””） | Sheet1!A1形式で指定。 |
URLへのハイパーリンクのサンプルコード
各種類ごとのハイパーリンクの設定方法のサンプルです。
ほとんど上の説明をコードにしただけです。
|
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 42 43 |
Sub HyperlinkPatternTest() Dim oHyperLink As Hyperlink '// URL Set oHyperLink = ActiveSheet.Range("A1").Hyperlinks.Add( _ Anchor:=Range("A1"), _ Address:="https://www.aaa.co.jp/", _ SubAddress:="jump", _ ScreenTip:="URL", _ TextToDisplay:="Sample") '// ファイル（絶対パス） Set oHyperLink = ActiveSheet.Range("A2").Hyperlinks.Add( _ Anchor:=Range("A2"), _ Address:="C:\web\test\a.txt", _ SubAddress:="", _ ScreenTip:="ファイル絶対パス", _ TextToDisplay:="a.txt") '// ファイル（相対パス） Set oHyperLink = ActiveSheet.Range("A3").Hyperlinks.Add( _ Anchor:=Range("A3"), _ Address:="..\test\b.txt", _ SubAddress:="", _ ScreenTip:="ファイル相対パス", _ TextToDisplay:="b.txt") '// メールアドレス Set oHyperLink = ActiveSheet.Range("A4").Hyperlinks.Add( _ Anchor:=Range("A4"), _ Address:="mailto:aaa@aa.com?cc=bbb@bb.com&bcc=ccc@cc.com&subject=件名&body=あああ様", _ SubAddress:="", _ ScreenTip:="メールアドレス", _ TextToDisplay:="aaa@aa.com") '// Excelブック指定位置 Set oHyperLink = ActiveSheet.Range("A5").Hyperlinks.Add( _ Anchor:=Range("A5"), _ Address:="", _ SubAddress:="Sheet1!C5", _ ScreenTip:="ブック指定位置", _ TextToDisplay:="Sheet1!C5") End Sub |
実行結果
