Excel マクロ(VBA) でブック内の画像をすべて取り除く

備忘録としてVBAマクロを掲載していくシリーズ。

ブック内に大量に画像が張り付けてあって、それをすべて消す作業が発生したので、めんどくさくなったので下記のマクロにて処理。

まず、アクティブなシート内の画像を全て消す処理は、下記。

ActiveWorksheet.Pictures.Delete

これをForループで全シートに対して順次行ってあげるだけ。

Sub 画像をすべて取り除く()
     Dim sht As Variant

     For Each sht In Sheets
          sht.Pictures.Delete
     Next sht
End Sub