在 Visio 中寻找 CALLTHIS 示例

Question

我不会列出我尝试过但不起作用的许多排列。

我的目标是调用一个以调用者姓名作为参数的子例程。

类似：

Public Sub Shape_DoubleClick(ByVal shapeName As String)
    Debug.Print "Shape_DoubleClick called for: " & shapeName
End Sub

但是无论我在 ShapeSheet 的 EventDblClick 单元格中写入什么内容，我都看不到任何活动。

我无法让任何涉及 CALLTHIS 的内容在 Visio 中工作。 谁能给我举个例子吗？

Answer 1

公共子形状_DoubleClick（ByVal shapeName As String）

被调用函数的参数必须是形状对象，而不是字符串！
请阅读备注了解更多CALLTHIS函数描述。

---

您可以更改代码，例如：

Public Sub Shape_DoubleClick(ShapeObj As Shape)
    MsgBox "Shape_DoubleClick called for: " & ShapeObj.Name
End Sub

EventDblClick 单元格中的公式必须类似于：

CALLTHIS("ThisDocument.Shape_DoubleClick")