Windows. Свойство EventList (Visio)
Возвращает коллекцию EventList объекта или коллекцию EventList , которая содержит объект Event . Только для чтения.
Синтаксис
выражения. EventList
выражение Переменная, представляюая Windows объекта.
Возвращаемое значение
EventList
Пример
В этом макрос Visual Basic для приложений Microsoft (VBA) показано, как использовать свойство EventList для добавления объекта Event в коллекцию EventList объекта Document. Когда объект Event запускается путем добавления фигуры в документ, надстройка VSL, которая указывает запуски.
Перед запуском этого макроса замените ссылки на fullpath\filename и filename допустимым путем и именем для надстройки microsoft Visio VSL или исполняемой (EXE).
Public Sub EventList_Example()
Dim vsoEventList As Visio.EventList
Dim vsoEvent As Visio.Event
Dim vsoAddons As Visio.Addons
Dim vsoAddon As Visio.Addon
'Prevent overflow error.
Const visEvtAdd% = &H8000
'Add the specified add-on to the Addons collection.
Set vsoAddons = Visio.Addons
Set vsoAddon = vsoAddons.Add ("fullpath\filename ")
'Add a ShapeAdded event to the EventList collection
'of the document. The event will start the specified add-on, which
'should take no arguments.
Set vsoEventList = ThisDocument.EventList
Set vsoEvent = vsoEventList.Add(visEvtAdd + visEvtShape, visActCodeRunAddon, _
"filename ", "")
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.