How do I recognize shapes?

[nimo]

Hi All

Suppose I have a 15 of shapes (Rectangles, Ovals etc.) . Now I think the shapes are marked as Shapes("Rectangle 1&quot,Shapes("Rectangle 2&quot,Shapes("Oval 3&quot ....serially.........now my question is how can I make a Macro that is intelligent enough to identify the corresponding shape when I click the shape.......like if I click Shapes("Rectangle 1&quot, it will return me Shapes("Rectangle 1&quot or at least "Rectangle 1".......

 

[RobBroekhuis]

You need to look at the AutoShapeType property of the selected shape. You'll need a select case statement to generate the text name of the shape, e.g.

select case activeworksheet.shapes(i)
case msoShapeRectangle:ShapeName="rectangle"
...etc
end select

Rob

 

[nimo]

Hi

Thanx
I think it will return me the type of the shape, right? but I need t´he name of the shape, like "Rectangle 1" or "Rectabgle 4" or "Oval 6" etc...

Is it possible?

 

[RobBroekhuis]

Sure - use Activesheet.Shapes(i).name
Rob