使用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

希望有所帮助。

-Jon