オブジェクト.Hyperlink.Follow
オブジェクトにあるリンク先をそろぞれの既定のアプリケーションで表示するメソッドです。
オブジェクトにはセル、図形オブジェクト等を指定しますが予めExcel上でハイパーリンクの挿入をしていることが前提となります。
セルを指定した場合は
Range.Hyperlink(index).Follow
となります。
Rangeオブジェクト指定時はセル範囲に複数のハイパーリンクを含めることができるので、引数(index)に(1)や(2)などの番号を指定します。
セル範囲の左上が１で以降、行→列の順番にindex番号は振られます。
例えばハイパーリンクが一つだけのときは.Hyperlinks(1).Followのように表記します。
図形オブジェクト指定時には引数(index)は指定出来ません。（一つしか選択出来ないので）
代わりにShape(index)に番号を指定します。この番号は図形を作成した順番となります（Excel画面の左上の「名前ボックス」のところの末に表記されている｛角丸四角形２）の末の数字と同じです
shape(index).Hyperlinks.Follow
例
オブジェクトにあるリンク先をそろぞれの既定のアプリケーションで表示するメソッドです。
オブジェクトにはセル、図形オブジェクト等を指定しますが予めExcel上でハイパーリンクの挿入をしていることが前提となります。
セルを指定した場合は
Range.Hyperlink(index).Follow
となります。
Rangeオブジェクト指定時はセル範囲に複数のハイパーリンクを含めることができるので、引数(index)に(1)や(2)などの番号を指定します。
セル範囲の左上が１で以降、行→列の順番にindex番号は振られます。
例えばハイパーリンクが一つだけのときは.Hyperlinks(1).Followのように表記します。
図形オブジェクト指定時には引数(index)は指定出来ません。（一つしか選択出来ないので）
代わりにShape(index)に番号を指定します。この番号は図形を作成した順番となります（Excel画面の左上の「名前ボックス」のところの末に表記されている｛角丸四角形２）の末の数字と同じです
shape(index).Hyperlinks.Follow
例
Sub S_HLF1()
'この範囲選択で全てのセルにハイパーリンクが挿入されている場合は
'A1セルのリンクが開きます
Worksheets(1).Range("A1:B2").Hyperlinks(1).Follow
End Sub
Sub S_HLF2()
'図形に挿入されているハイパーリンクを開きます
Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True
End Sub
◯エラー
ハイパーリンクが挿入されていないセルやオブジェクトに対して[Hyperlink.Follow]のメソッドを実行すると
「実行時エラー '1004':
アプリケーション定義またはオブジェクト定義のエラーです。」
というエラーが表示されます。
また、存在しないオブジェクトを指定した場合は
「実行時エラー '2147024809 (80070057)':
指定したコレクションに対するインデックスが境界を超えています。」
というエラーが表示されます。
関連
ハイパーリンクを削除する[Hyperlinks.Delete]メソッド