【VBA】ハイパーリンクを作成・削除する

ハイパーリンクを作成・削除する

ハイパーリンクを作成・削除する構文は次のとおりです。

'ハイパーリンクを設定する
Call ActiveSheet.Hyperlinks.Add(Anchor:=ハイパーリンクを設置するセル, Address:="URLまたはファイルパス", TextToDisplay:="セルに表示する文字列")

'ハイパーリンクを設定する例（URLリンク）
Call ActiveSheet.Hyperlinks.Add(Anchor:=Range("F2"), Address:="https://www.yahoo.co.jp/", TextToDisplay:="Yahoo! JAPAN")

'ハイパーリンクを設定する例（ファイルへのリンク）
Call ActiveSheet.Hyperlinks.Add(Anchor:=Range("F5"), Address:="C:\test\Book1.xlsx", TextToDisplay:="テストBook")

'ハイパーリンクを削除する
Range("ハイパーリンクのあるセル").Hyperlinks.Delete
Range("ハイパーリンクのあるセル").Value = ""

'ハイパーリンクを削除する例
Range("F2").Hyperlinks.Delete
Range("F2").Value = ""