Excel #M052 ≪シート内の画像に設定されたハイパーリンクのみ削除する方法≫

ＥｘｃｅｌＴｉｐｓ by pPoy

←Top 　　　

VBA　　

VBA 基礎　　

一般　　

Macro	画像に設定されたハイパーリンクのみを削除する方法 (Excel97,Excel2000,Excel2002,Excel2003)
Excel のワークシートに貼り付けられた画像に設定済みの、URL (WEB サイト等) などのハイパーリンクのみを一括で削除する方法です。通常のセルに設定されたハイパーリンクに対しては何もしません。以下のコードを標準モジュールに貼り付けてください。

Sub myHyperDelIMG()
'画像のハイパーリンクの削除
    Dim i As Long
    'Hyperlink applies to a Shape object
    Const msoHyperlinkShape As Long = 1
    
    For i = ActiveSheet.Hyperlinks.Count To 1 Step -1
        With ActiveSheet.Hyperlinks(i)
            If .Type = msoHyperlinkShape Then
                '画像のハイパーリンクを削除
                .Delete
            End If
        End With
    Next i
End Sub

≪使用方法≫

まず、ハイパーリンクの設定されているシートを表示してから、
メニューバーの「ツール」－「マクロ」－「マクロ」で、
マクロの選択画面から、「myHyperDelIMG」を実行してください。

一瞬で、シート内の画像のハイパーリンクがすべて削除されます。

↑Top

≪注意≫

このマクロの結果は元に戻せません。コピーしたシートで試してください。
このマクロは、画像に設定されたハイパーリンクが対象です。
セルに設定されたハイパーリンクは、こちらを使用して削除してください。
このマクロは、For Next ループを使って、Hyperlink オブジェクトの中から
画像のみを探しています。
最初は、簡単な For Each Next ループを使用したのですが、Excel2003 で
異常終了する場合があるのであきらめました。

もし、2003 でも無事に使えそうな For Each Next ループがありましたら、
是非こちらまでお教えくださいませ。 m(__)m

↑Top