How would one grab a list of all labels available for a shape?

[dennis]

I would like to generically read all available labels for a selected
shape. If anyone can lead me to the right direction it would be very
helpful.

Thanks,

Dennis

 

[dennis]

After reading some more, I think I may have mixed up the terms.

Essentially I'm working with an assortment of Visio diagrams. I need
to get a list of all the Custom properties so that I may read the
labels (which is more important than the custom property identifier for
my case).

All the code and methods that I've been able to find can show me the
said information if I supply the shapes Custom Property identifier (ie:
Prop.MyProperty). Is there a way to just get a list of all the
customer property identifiers assuming I know NOTHING about the shape?

 

[dennis]

After much digging I figured it out =) I've seen this question asked
before so here's a snippet:

'cellSection = visSectionProp
cellSection=243
cellRowCounter = 0
'cellRowIndex = visRowProp
cellRowIndex = 0
'cellColumn = visCustPropsLabel
cellColumn = 2

While (oShape.CellsSRCExists(cellSection, cellRowIndex+cellRowCounter,
cellColumn, 0))
cellLabel = oShape.CellsSRC(cellSection, cellRowIndex+cellRowCounter,
cellColumn).Formula
.......
Wend

Hope this helps someone.