こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

excelマクロですべてのハイパーリンク解除したい

excel2016で、ワークシート内のハイパーリンクをすべて解除したいと思います。

すべて削除するマクロは
Sub Sample()
 With ThisWorkbook.Worksheets("Sheet1")
  .Hyperlinks.Delete 'ハイパーリンク削除
 End With
End Sub
なのですが、これを解除の命令に変えて
Sub Sample()
 With ThisWorkbook.Worksheets("Sheet1")
 .ClearHyperlinks 'ハイパーリンク解除
 .Font.Underline = False '文字のアンダーライン解除
 .Font.ColorIndex = xlAutomatic '文字色を自動設定
 End With
End Sub
とするとエラーになってしまいます。
どのようにすれば良いでしょうか?

投稿日時 - 2020-07-09 13:30:01

QNo.9770373

困ってます

質問者が選んだベストアンサー

以下のようにしたらどうでしょう。
Sub Sample()
With ThisWorkbook.Worksheets("Sheet1")
.Cells.ClearHyperlinks 'ハイパーリンク解除
.Cells.Font.Underline = False '文字のアンダーライン解除
.Cells.Font.ColorIndex = xlAutomatic '文字色を自動設定
End With
End Sub

投稿日時 - 2020-07-09 14:08:53

お礼

素晴らしい。\(^_^)/

たったこれだけでできるとは。
目から鱗です。

ありがとうございました。

投稿日時 - 2020-07-09 14:40:51

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Sub Sample()
Worksheets("Sheet1").Hyperlinks.Delete
End Sub
これで・・・できないかな? ><
未確認の為、試してみて下さい m(_ _)m

投稿日時 - 2020-07-09 14:44:53

あなたにオススメの質問