eventdblclick->show shapedata of different shape

Started by novski, May 05, 2014, 07:03:20 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

novski

hi
im trying to show the shapedata of a second shape by dubbleclicking the first.
how can i do this?
thanks
novski

Thomas Winkel

Hi,

I guess you have to do this with code:


Public Sub OpenShapeData()
    Dim shp As Visio.Shape
    Set shp = ActiveDocument.Pages(1).Shapes(1)
    shp.Application.DoCmd (visCmdFormatCustPropEdit)
End Sub


And in EventDblClick:


=RUNMACRO("ModuleName.OpenShapeData","ProjectName")


Showing the data of the same shape is possible without code:


=DoCmd(1312)