Autoshape } massive and cannot delete

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.
 
C

Chip Pearson

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 [email protected]
 
Top