autoshapes round 2

  • Thread starter Thread starter scrabtree
  • Start date Start date
S

scrabtree

The code:

ActiveSheet.Shapes.SelectAll
Selection.Delete

Deleted all the Autoshapes. It also deleted all the
buttons and dropdown boxes, too. How can I just delete
Autoshapes without deleting buttons etc.?
 
Sub a()
Dim X As Shape
For Each X In ActiveSheet.Shapes
If X.Type = msoAutoShape Then X.Delete
Next
End Sub


--
Jim Rech
Excel MVP
| The code:
|
| ActiveSheet.Shapes.SelectAll
| Selection.Delete
|
| Deleted all the Autoshapes. It also deleted all the
| buttons and dropdown boxes, too. How can I just delete
| Autoshapes without deleting buttons etc.?
|
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Problem renaming command buttons with code 2
Excel 2007: create specifically named copies of an autoshape? 4
Working with AutoShapes - Adding Text Vs Adding Formulas 1
Export autoshape as picture using VBA? (object doesn't support met 1
Update Autoshape's Hyperlink 2
vba to select all autoshapes on a sheet 2
AutoShape Copy and Paste 4
Automatically Color Autoshape and Autoshape Naming 2

Back
Top