Visio :如何在VB代码中对形状注册鼠标双击事件

Question

我有两个问题：

1. 是否有办法通过VBA代码更改形状的ShapeSheet (电子表格)参数？更准确地说，我需要更改形状的ShapeSheet中的ShapeSheet参数值。
2. 是否有其他方式将鼠标双击事件处理程序注册到Visio形状？我希望每次双击形状时都会调用我提供的子例程，并将shape对象作为参数。

到目前为止，我知道的是注册添加形状事件，如下所示：

私有子Document_ShapeAdded(ByVal vsoShape As Visio.IVShape)

 'Do something with the shape object.

结束子对象

每次将新形状添加到Visio页面时都会调用此子例程。

Answer 1

使用此链接作为指南：

子例程的设置是很好的，在这种情况下，离开它Private将工作，因为它是在同一个文档中引用的。如果您的形状正在另一个文档或Office产品中调用子例程，则需要使所引用的子例程Public。

当您删除新形状时，请定义它并将其命名。然后，可以设置双击子程序，如下所示：

shpYourShapeName.CellsSRC(visSectionObject, _
    visRowEvent, visEvtCellDblClick).FormulaU = _
    "CALLTHIS(""ThisDocument.SubRoutineName"")"

其中"SubRoutineName“是包含在绘图的VBA代码中的公共子例程。