你的浏览器禁用了JavaScript, 请开启后刷新浏览器获得更好的体验!

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

我对此非常陌生，所以我想从简单的事情开始。我的Visio文档中只有一个对象，我想在它被点击时显示一条Hello World!消息。

已邀请:

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

要回复问题请先登录或注册