セルにハイパーリンクを設定する

サンプルソース

' A1にハイパーリンクを設定
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="http://excel.style-mods.net"

' A1にハイパーリンクを設定(ヒント、アンカーテキストも設定)
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"),Address:="http://excel.style-mods.net", ScreenTip:="ヒントを表示", TextToDisplay:="表示テキスト"

' A1のハイパーリンクを削除
Range("A1").Hyperlinks.Delete

' アクティブシートのハイパーリンクを全て削除
ActiveSheet.Hyperlinks.Delete

解説

Hyperlinks.Addでハイパーリンクを設定します。

Anchorには設定するセル、Addressにはアドレス(URL)、ScreenTipにはリンクのヒント、TextToDisplayにはアンカーに表示するテキストを設定します。

Hyperlinks.Deleteでハイパーリンクを削除します。





セルの操作




Excel VBA講座




アクセスランキング


セルの参照
セルの操作
シートの操作
ブックの操作
ウィンドウの操作
グラフの操作
印刷の操作
ファイル操作
Excel操作


Copyright (C) Excel@Workshop All rights reserved.