Excelのワークシートにある図形をすべて削除するマクロです。
Excel2007で確認しました。
すべてを削除
アクティブなワークシートにあるすべての図形を削除します。
Sub shape_delete_all()
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next
End Sub
For Each myshape In ActiveSheet.Shapes
myshape.Delete
Next
End Sub
フォーム以外を削除
「図形は削除したいが実行ボタンなどは残したい」というような場合は次のようにします。
Sub shape_delete_select()
For Each myshape In ActiveSheet.Shapes
If myshape.Type <> 8 Then 'フォーム(ボタンなど)以外
myshape.Delete
End If
Next
End Sub
For Each myshape In ActiveSheet.Shapes
If myshape.Type <> 8 Then 'フォーム(ボタンなど)以外
myshape.Delete
End If
Next
End Sub
コメント