
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

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

こんな記事も書いています