How could i know??

[Visiomaniac]

Hey buddies, i have a question, how could i know the quantity of the properties in any shape by Vba code.

thnks !!!

[Yacine]

Try this:

Code Select Expand

Sub test()
Dim Shp As Visio.Shape
Set Shp = ActiveWindow.Selection(1)
If Shp.SectionExists(visSectionProp, visExistsAnywhere) Then
    t = Shp.Section(visSectionProp).Count
    Debug.Print t
End If
End Sub

[Visiomaniac]

thnks a lot' bro!!! you 're amazing..XD