【Excel VBA】選択範囲にかかる図形を一括削除する方法

2026年5月4日

図形を多く使うタイミングが、時折やってきます。

ただ、セルだけをコピーしたいのに、図形まで一緒についてきてしまうこともあります。

図形はまとめて選択がしづらいため、サッと消せるVBAをもっておくと効率的です。

▼関連記事

【Excel図形】よく使う図形を一瞬で配置する方法3選

※こんな図形も消せます

Contents

VBAの基本

VBAの基礎的な内容はこちらでまとめています。
必要に応じてご参照ください。

▼関連記事

『Excelマクロ・VBA』を触ったことがない人へ

すぐ使いたい方はこちら

使用するコードはこのような形です。
VBE画面に貼り付けていただければ、すぐに使えます。
※マクロで削除した図形は、通常の操作のように「元に戻す」ができないためご注意ください。
　必要に応じて、ファイルを保存してから実行してください。

コードはこちら

Sub 選択範囲にかかる図形を削除()

    Dim shp As Shape
    Dim rng As Range
    Dim i As Long
    
    ' 1. 選択されているのがセル(Range)であることを確認
    If TypeName(Selection) <> "Range" Then
        MsgBox "セルを選択してから実行してください。", vbExclamation
        Exit Sub
    End If
    
    Set rng = Selection

    ' 2. Shapesを後ろからループ（削除時のインデックスずれ防止）
    ' ※ActiveSheet.Shapes.Count から 1 まで逆順に回す
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        Set shp = ActiveSheet.Shapes(i)
        
        ' 図形と選択範囲が少しでも重なっているか判定
        ' 重なり判定：(図形の右 > 範囲の左) かつ (図形の左 < 範囲の右) ...
        If shp.Left + shp.Width > rng.Left And _
           shp.Left < rng.Left + rng.Width And _
           shp.Top + shp.Height > rng.Top And _
           shp.Top < rng.Top + rng.Height Then
            
            shp.Delete
            
        End If
    Next i

End Sub