[[20090821142719]]　『マクロでリンクの設定解除』（北海椿）　ページの最後に飛ぶ

『マクロでリンクの設定解除』（北海椿）

 マクロで、リンクの設定を一括解除する事はできますか？
 リンク先だとかは一切構わず、リンクの設定があったら全部一気に解除をしたいのです。
 よろしくお願いします。

  Sub ハイパーリンク削除()
  ActiveSheet.Hyperlinks.Delete
  End Sub

 こんなので？
 （とおりすがり）

 とおりすがりさん、ありがとうございます。
 教えていただいたのはハイパーリンクを解除するマクロですよね。
 私が質問したのは、一般機能で言うと、「編集→リンクの設定→リンクの解除」のリン クの解除なのですが、これもこのマクロで解除できるのでしょうか？
 申し訳ありません、質問が下手でご迷惑をお掛けしますが、よろしくお願いします。
 （北海椿）

 リンクの解除ですと以下のようになると思います。

  Sub Test()
  Dim vntLink As Variant, i As Long
  vntLink = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
  If IsArray(vntLink) Then
    For i = 1 To UBound(vntLink)
      ActiveWorkbook.BreakLink Name:=vntLink(i), Type:=xlExcelLinks
    Next i
  End If
  End Sub

 （ｍｏｍｏ）

 ｍｏｍｏさん、ありがとうございます。
 リンクの解除がバッチリできました！
 過去ログとかも探したのですが、見つからなくて困っておりました。
 ホント助かりました。
 ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20090821142719]] 『マクロでリンクの設定解除』（北海椿） ページの最後に飛ぶ

[[20090821142719]]　『マクロでリンクの設定解除』（北海椿）　ページの最後に飛ぶ