Как отобразить сообщение при нажатии на объект в 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