How set a Shape

[Leonardo]

Hello,
I have a "noob" question ahah
Do you know how "SET" a shape without using For each

This example show you the way which i take to set my shape :

Code Select Expand

Public Sub example()
Dim vsoShape as Visio.Shape
For each vsoShape in ActivePage.Shape
Next
end Sub


Thank You

[Surrogate]

you can declare shape via ID

Code Select Expand

ActivePage.Shapes.ItemFromID(ID)
ActivePage.Shapes(ID)
or ShapeName

Code Select Expand

ActivePage.Shapes.Item("ShapeName")
ActivePage.Shapes("ShapeName")

[Leonardo]

Hum ok... Can I write like this :

Code Select Expand


ActivePage.Shapes.Item("ShapeName[b]*[/b]")
ActivePage.Shapes("ShapeName[b]*[/b]")