K
ker_01
I have a worksheet where some shapes have been "lost" over time (deleted
columns, etc) so now these shapes have zero width. I want to delete them
because I'll be making multiple copies of this template, and don't want the
extra overhead.
activesheet.shapes.select
will select all the shapes, and I can see the ones I want to delete.
However, I am unable to get the handles (and the screen doesn't scroll to
make sure the selected shape is in the UI) when I use:
Sub ShowShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Select
DelMe = InputBox("delete this shape?")
If DelMe = "Y" Then
shp.Delete
End If
Next
I have enough shapes that I'd prefer to semi-automate this, rather than
selecting all, then picking one to delete it, then selecting all again, and
so on.
What is the best way to see the handles on a (single) selected shape so I
know it is one of my zero-width ones, and also scroll to ensure it is
"visible" i.e. in the UI screen?
Thanks!
Keith
columns, etc) so now these shapes have zero width. I want to delete them
because I'll be making multiple copies of this template, and don't want the
extra overhead.
activesheet.shapes.select
will select all the shapes, and I can see the ones I want to delete.
However, I am unable to get the handles (and the screen doesn't scroll to
make sure the selected shape is in the UI) when I use:
Sub ShowShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Select
DelMe = InputBox("delete this shape?")
If DelMe = "Y" Then
shp.Delete
End If
Next
I have enough shapes that I'd prefer to semi-automate this, rather than
selecting all, then picking one to delete it, then selecting all again, and
so on.
What is the best way to see the handles on a (single) selected shape so I
know it is one of my zero-width ones, and also scroll to ensure it is
"visible" i.e. in the UI screen?
Thanks!
Keith