Deleting shapes/objects from a preselected area

T

Tim

Is there a way to delete shapes/objects from a preselected area? I am trying
to use the following macro, but it takes a long time. It also has the
problem as you can't tell which object is selected when the dialog box is
open.
Tim

Sub delete_objects_in_an_area()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Select 'can't determine which shape is selected
'ActiveSheet.activeShape.Select
'need to select shape first so I know whether to delete or not
response = MsgBox("Delete shape?", vbYesNoCancel + vbCritical +
vbDefaultButton2)
If response = vbYes Then
shp.Delete
ElseIf response = vbCancel Then
Exit Sub
End If
Next
end sub
 

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

Top