Excel VBA オートシェイプを一度に削除する

Excelにたくさんのオートシェイプがあって、全部を削除したい時があります。

でも、量が多かったり、隠れていたりすると削除が大変ですよね。

VBAを使うと簡単に削除することができます。

< スポンサーリンク >

全部のオートシェイブを削除する

VBEに次のように書き込みます。

Private Sub test()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        s.Delete
    Next
End Sub

書き込んだVBAを実行すると、すべてのオートシェイプが削除されます。

特定の名前のオートシェイブを削除する

VBEに次のように書き込みます。

Private Sub test()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Name = “円/楕円 1” Then
            s.Delete
        End If
    Next
End Sub

書き込んだVBAを実行すると、特定の名前のオートシェイプが削除されます。

特定の名前以外のオートシェイブを削除する

VBEに次のように書き込みます。

Private Sub test()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Name <> “円/楕円 1” Then
            s.Delete
        End If
    Next
End Sub