getting custom property of double clicked shape

[Robert Sikkens]

Hi everyone,

when I double click on a shape in my drawing a userform pops up. I want to
fill the textbox on the userform with the value of a custom property of the
double clicked shape. Does anyone know how I can do this with vba?

Thanks

 

[Chris Roth [ Visio MVP ]]

Here's some example systems:

--------------------------------------------------
Get the property from the shape via code:


Shape
-----
EventDblClick = CALLTHIS("ShowMyForm")


VBA
-----
Public Sub ShowMyForm( shp as Visio.Shape )

Dim sProp as string
sProp = shp.Cells("Prop.SomeProperty").ResultStr(visNoCast)

' Show form, pass sProp to form...

Next

--------------------------------------------------
Pass the argument from the shape:


Shape
-----
EventDblClick = CALLTHIS("ShowMyForm", ,Prop.SomeProperty)


VBA
-----
Public Sub ShowMyForm( shp as Visio.Shape, sProp as String )

' Show form, pass sProp to form...

Next

--------------------------------------------------

Check out CALLTHIS in the help file, as well as Shape.Cells( )

--

Hope this helps,

Chris Roth
Visio MVP