如何在使用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