Reading Shape Properties in VB 1

[Kalisto]

Using VB and Visio 2002

I have a visio drawing with some standard symbols on it (computers, phones etc)
Someone has filled in all the properties of these devices (from the right click / Properties menu)

How can I access them in VB - I can access the shape, and get the shape name, but nowhere can I see where the properties are stored.

Thanks, K

 

[johnwm]

I've just answered this in the VB forum! See thread222-623081

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[Kalisto]

Thanks, I forgot to delete it from there when I found a visio specific forum ! (Now you have answered I'll delete it, but have a star.

K

 

[johnwm]

The star would be nice, but don't delete the thread as it may be useful to others.

So that others don't miss out, I'll copy the answer here:

You can reference the custom properties via the shapesheet. My shape(80) has 4 custom properties:

With ActivePage
For a = 0 To 3
Debug.Print a & " " & .Shapes(80).Section(visSectionProp).Row(a).Cell(visCustPropsValue).Formula
Next a
End With

The constants <visSectionProp> and <visCustPropsValue> are available in the Object browser for Visio Object Library

Visio under VBA can be quite heavy going - good luck with it!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'