Свойство Documents.EventList (Visio)

  • Статья

Возвращает коллекцию EventList объекта или коллекцию EventList , содержащую объект Event . Только для чтения.

Синтаксис

expression. EventList

Выражение Переменная, представляющая объект Documents .

Возвращаемое значение

EventList

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как использовать свойство EventList для добавления объекта Event в коллекцию EventList объекта Document. Если объект Event активируется путем добавления фигуры в документ, то указанная вами надстройка VSL запускается.

Перед выполнением этого макроса замените ссылки на fullpath\filename и filename допустимым путем и именем для надстройки VSL или исполняемого файла (EXE) Microsoft Visio.

 
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 и обратная связь.