vba - 使用 VBA 在 Visio 中单击对象时如何显示消息？

Question

我对此完全陌生，所以我想从简单的事情开始。

我的 Visio 文档中只有一个对象，我想在Hello World!单击它时显示一条消息。

Answer 1

我使用 Visio.Application 类上的 SelectionAdded 事件完成了类似的操作。我检查，如果 selection.count 为 1，那么逻辑上该形状刚刚被单击，如果形状类型与您想要的匹配，则显示您的消息：

在 ThisDocument 模块（实际上是任何对象模块）中：

Private WithEvents VsoApp As Visio.Application
Private Sub VsoApp_SelectionAdded(ByVal Selection As IVSelection)
    If Selection.Count = 1 Then
        MsgBox "Hello World"
    End If
End Sub

希望有帮助。

-乔恩