Excel Macro–Delete All Images and Shapes

If you run the Corridor Stakeout Report and save the results to Excel you quickly find out the images overlap the corridor information. I recently was exporting 16 miles of data at every 100’ sections. Needless to say I wasn’t about to delete all of the images manually. What I did was create a macro to quickly delete all of them.

Sub DeleteImages()
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
End Sub