読者です 読者をやめる 読者になる 読者になる

ゴミ溜め@技術系日常系雑文

主にWeb技術やそのほかつまづいたこととか引っかかって調べたこととかをまとめてます。

はてなダイアリーから引っ越しました。)

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

VBA Excel

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

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

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

ActiveWorksheet.Pictures.Delete

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

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

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