Autoshape } massive and cannot delete

  • Thread starter Thread starter TR
  • Start date Start date
T

TR

Figured it out partially ..
The autoshape is embedded on top of it self 4900 times.
Of course I can't find a way to select all 4900 instances
and delete them.
It will only delete 1 at a time.
 
TR,

You can use a macro to delete them all.

Sub DeleteAllAutoShapes()
Dim SH As Excel.Shape
For Each SH In ActiveSheet.Shapes
If SH.Type = msoAutoShape Then
SH.Delete
End If
Next SH
End Sub

Note that this will delete ALL AutoShapes.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com (e-mail address removed)
 
Back
Top