How do I retrieve Visio custom shape information with VBA

vba ms-office visio office-2003
JonnyGold picture JonnyGold · Feb 3, 2009 · Viewed 23.7k times · Source

Using VBA, how do I retrieve custom shape information from a Visio 2003 diagram.

Answer

Jon Fournier picture Jon Fournier · Feb 3, 2009

To get custom shape information from a Visio shape:

Function GetCustomPropertyValue(TheShape As Visio.Shape, ThePropertyName As String) As String
    On Error Resume Next
    GetCustomPropertyValue = TheShape.CellsU("Prop." & ThePropertyName).ResultStr(visNone)
End Function

All this function does is uses the cellsu property on a shape to get the custom property ShapeSheet cell by name...

If you're a stickler about using the on error resume next, you can check to see if the cell exists by first checking if the cell exists:

if TheShape.CellExistsU( "Prop." & ThePropertyName , 0 ) then
GetCustomPropertyValue = TheShape.CellsU("Prop." & THePropertyName).ResultStr(VisNone)

Related questions

Where does VBA Debug.Print log to?

Where does Debug.Print output messages?

Read More
Hiding an Excel worksheet with VBA

I have an Excel spreadsheet with three sheets. One of the sheets contains formulas for one of the other sheets. Is there a programmatic way to hide the sheet which contains these formulas?

Read More
VBA: How to display an error message just like the standard error message which has a "Debug" button?

As usual, I create an error-handler using On Error Goto statement, there I put a few lines of cleaning codes and display the error message, but now I don't want to lose the comfortableness of the default handler which also …

Read More