回帖：Sub DeleteAllPictures()
Dim ws As Worksheet
Dim pic As Picture
For Each ws In ThisWorkbook.Worksheets
For Each pic In ws.Pictures
pic.Delete
Next pic
Next ws
End Sub

也是从咱论坛里存的，可以干掉图片