VBA를 사용하여 Visio에서 개체를 클릭하면 메시지를 어떻게 표시합니까?

Question

전 완전히 새로운 편이어서 뭔가 간단한 것으로 시작하고 싶습니다.

Visio 문서에 개체가 하나 있는데 클릭 할 때마다 Hello World! 메시지를 표시하고 싶습니다.

Answer 1

Visio.Application 클래스에서 SelectionAdded 이벤트를 사용하여 이와 비슷한 작업을 수행했습니다. select.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