How can I trap selection of a shape?

ojv

Shape has it own name.
if you click one, you'll notice the shape's name from the name box located
left-top corner.

you can select it with Shape object & it's name as following:
Set shp = Sheet2.Shapes("AutoShape 1")
shp.Flip msoFlipVertical

ans also you can browse shape objects on a worksheet with For Each~Next Loop
as followinf:
Dim shp As Shape

For Each shp In Sheet2.Shapes
Debug.Print shp.Name
Next
--
msn
---------------------------------------------
the best time to plant a tree was twenty years ago.
the second best time, is today - Chinese proverb



"ojv" wrote:

How can I trap selection of a shape?

ojv