Как отобразить сообщение при нажатии на объект в Visio с помощью VBA?

Question

Я абсолютно новичок в этом, поэтому я хочу начать с чего-то простого.

У меня есть только объект в моем документе Visio, и я хочу отобразить Hello World! сообщение всякий раз, когда он нажал.

Answer 1

Я сделал нечто похожее на это, используя событие SelectionAdded в классе Visio.Application. Я проверяю, если 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