Sub 画像のみすべて削除する()

    For Each 画像 In ActiveSheet.Shapes 'すべてのShapesをチェック
    
        If 画像.Type = msoPicture Then 'Shapesが画像の場合
        
            画像.Delete '画像を削除する
        
        End If
        
    Next 画像

End Sub