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

サンプルソース

' 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でハイパーリンクを削除します。




セルの操作

Copyright (C) ExcelVBA@Workshop All rights reserved.