ExcelVBA入門 - ハイパーリンクの設定

ハイパーリンクの設定

ハイパーリンクの設定 Add

ハイパーリンクというのは、リンク先が設定されている文字列や図形のこと。クリックすると割り当てられているリンク先にジャンプすることができます。

オブジェクト.Add( Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

Anchorは、オブジェクト型の値を使って設定先を指定。セルRangeオブジェクト、図形Shapeオブジェクトを指定。
Addressは、URL、ファイル名のパスなど、ハイパーリンクのアドレスを文字列で指定。
SubAddressは、指定したWebページ内のブックマーク、指定したワークシート内のセルなどのジャンプ先を指定。
ScreenTipは、ハイパーリンクにマウスをのせたときに表示されるポップヒントを指定。
TextToDisplayは、セルに表示される文字列を指定。

セルC2にWebページ（Yahoo）にリンクしたハイパーリンクを設定してみました。

Sub ハイパーリンクの設定()

　　ActiveSheet.Hyperlinks.Add Anchor:=Range("C2"), _
　　　　Address:="http://www.yahoo.co.jp/", _
　　　　TextToDisplay:="Yahooにリンク"

End Sub

実行すると、セルC2に「Yahooにリンク」と表示され、ハイパーリンクが設定されました。
実行結果

2008年8月

ハイパーリンクの設定ができた！と喜んで、リンクをクリック．．．．．．！？
結果はこれ
実行結果

クリックするブラウザが起動して指定したWebページが表示されるはずなのにできない。
何が悪いんだろう？？　間違っているのか？？
しばらくしてわかりました。ファイアウォールが頑張っているからだった。ファイアウォールを無効にすると、すぐにつながりました．．．．．．

ホーム > セルの操作 > Lesson7： ハイパーリンクの設定

ホーム > セルの操作 > Lesson7：　ハイパーリンクの設定