VBA-画像、図形を全消去

画像及び図形などを全てのシートから除去するVBAマクロ。

Sub deleteAllElement()
    Dim element As Shape
    Dim sps As Shapes
    Dim sheet_name As Worksheet
    For Each sheet_name In Worksheets

        Set sps = sheet_name.Shapes
       
        For Each element In sps
            element.Delete
        Next
    Next
End Sub