エクセルシート内の全画像を削除

' シート内の全画像を削除
Sheets("シートA").Activate
Dim pic
For Each pic In ActiveSheet.Pictures
    pic.Delete
Next