Ad

Monday, May 30, 2011

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

1 comment:

Anonymous said...

Or, CTRL+G for "goto", then select Objects, then use the delete key.

LinkWithin

Blog Widget by LinkWithin