【ExcelVBA】ハイパーリンクの削除・解除
セル
ハイパーリンクの削除
セルA1のハイパーリンクを削除する例Sub Sample() With ThisWorkbook.Worksheets("Sheet1").Range("A1") .Hyperlinks.Delete 'ハイパーリンク削除 End With End Sub※罫線と背景色も、一緒に消えます。
※罫線と背景色を残したい場合は、下記のハイパーリンクの解除を参照ください。
ハイパーリンクの解除
セルA1のハイパーリンクを解除する例Sub Sample() With ThisWorkbook.Worksheets("Sheet1").Range("A1") .ClearHyperlinks 'ハイパーリンク解除 .Font.Underline = False '文字のアンダーライン解除 .Font.ColorIndex = xlAutomatic '文字色を自動設定 End With End Sub※4行目でハイパーリンクを解除しただけでは、文字は青色、文字下にアンダーラインが残ります。
※5行目・6行目でアンダーラインの除去と文字色を標準に戻しています。
※罫線と背景色は、そのまま残ります。
シート内全部
ハイパーリンクの削除(シート内全部)
シート内のハイパーリンクを全て削除する例Sub Sample() With ThisWorkbook.Worksheets("Sheet1") .Hyperlinks.Delete 'ハイパーリンク削除 End With End Sub※ハイパーリンクのセルに関わっていた罫線と背景色も一緒に消えます。
ディスカッション
コメント一覧
まだ、コメントがありません