Sub tester()
Dim DrObj
Dim Pict
Set DrObj = ActiveSheet.DrawingObjects
For Each Pict In DrObj
Pict.Select
Pict.Delete
Next
End Sub

VBA script to remove all the images present in the active sheet of the Microsoft Excel spreadsheet.

MS Excel: Remove all images

images, excel

Visual Basic