vba - VBA を使用して Visio でオブジェクトをクリックしたときにメッセージを表示するにはどうすればよいですか?

Question

私はこれについてまったく新しいので、簡単なことから始めたいと思います。

Hello World!Visio ドキュメントにオブジェクトが 1 つしかなく、クリックされるたびにメッセージを表示したいと考えています。

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

それが役立つことを願っています。

-ジョン