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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です