Author Topic: eventdblclick->show shapedata of different shape  (Read 1473 times)

0 Members and 1 Guest are viewing this topic.

novski

  • Full Member
  • ***
  • Posts: 182
eventdblclick->show shapedata of different shape
« on: May 05, 2014, 02:03:20 AM »
hi
im trying to show the shapedata of a second shape by dubbleclicking the first.
how can i do this?
thanks
novski

Thomas Winkel

  • Full Member
  • ***
  • Posts: 196
Re: eventdblclick->show shapedata of different shape
« Reply #1 on: May 05, 2014, 04:04:18 AM »
Hi,

I guess you have to do this with code:

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:

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

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

Code
=DoCmd(1312)