برای اینکه تمامی تصاویر موجود در فایل اکسل خود را به صورت یکجا حذف کنید فقط کافیست که کلید Alt + F11 را فشرده و سپس از منوی Insert گزینه Module را انتخاب و کد زیر را در داخل آن اجرا کنید

Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub