Событие Document.DocumentCreated (Visio)

Возникает после создания документа.

Синтаксис

выражение. DocumentCreated (doc)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
doc	Обязательный	[ИВДОКУМЕНТ]	Созданный документ.

Примечания

Событие DocumentCreated часто добавляется в коллекцию EventList файла шаблона Microsoft Visio (VST). Действие события запускается каждый раз, когда на основе шаблона создается новый документ.

Если вы используете Microsoft Visual Basic или Visual Basic для приложений (VBA), синтаксис в этом разделе описывает распространенный и эффективный способ обработки событий.

Если вы хотите создать свои собственные объекты Event , используйте метод Add или AddAdvice .

Чтобы создать объект Event , который запускает надстройку, используйте метод Add , применяемый к коллекции EventList .

Чтобы создать объект события , получающий уведомление, используйте метод AddAdvice .

Чтобы найти код события для события, которое вы хотите создать, см. Коды событий.

Вы можете добавлять события DocumentCreated в коллекцию EventList объекта приложения , коллекции документов или объекта документа . Первые два просты; если документ открывается или создается в области объекта приложения или его коллекции "Документы", происходит событие DocumentCreated.

Однако добавление события DocumentCreated в коллекцию EventList объекта Document имеет смысл только в том случае, если действием события является visActCodeRunAddon. В этом случае событие сохраняемо; Его можно хранить вместе с документом. При открытии документа, содержащего сохраняемое событие, запускается его действие. Если новый документ основан на документе, содержащем сохраняемое событие, или копируется из него, событие DocumentCreated копируется в новый документ и запускается его действие. Однако, если действие события является visActCodeAdvise, это событие не является сохраняемым и, следовательно, не сохраняется в документе; следовательно, он никогда не срабатывает.

Можно запретить выполнение кода в ответ на событие DocumentCreated, DocumentOpen или DocumentAdded и все события, задав для свойства EventsEnabled объекта приложения значение False.

Пример

В этом примере VBA демонстрируется, как подсчитывать фигуры, добавленные в документ на основе master "Квадрат".

Обработчик событий DocumentCreated выполняется при создании нового документа на основе шаблона, содержащего этот код. Обработчик инициализирует целочисленную переменную intNumberOfSquares, которая используется для хранения счетчика.

Обработчик события ShapeAdded выполняется каждый раз при добавлении фигуры на страницу документа при перетаскивании фигуры из набора элементов, рисовании с помощью инструмента рисования или вставке из буфера обмена. Обработчик проверяет свойство Master новой фигуры и, если фигура основана на master Square, увеличивает intNumberOfSquares.

 
Dim intNumberOfSquares As Integer 
 
Private Sub Document_DocumentCreated(ByVal vsoDocument As Visio.IVDocument) 
 
'Initialize number of squares added. 
 intNumberOfSquares = 0 
 
End Sub 
 
 
Private Sub Document_ShapeAdded(ByVal vsoShape As Visio.IVShape) 
 
 Dim vsoMaster As Visio.Master 
 
 'Get the Master property of the shape. 
 'the shape was created locally. 
 Set vsoMaster = vsoShape.Master 
 
 'Check whether the shape has a master. If not, 
 If Not (vsoMaster Is Nothing) Then 
 
 'Check whether the master is "Square". 
 If vsoMaster.Name = "Square" Then 
 
 'Increment the count for the number of squares added. 
 intNumberOfSquares = intNumberOfSquares + 1 
 
 End If 
 
 End If 
 
 MsgBox "Number of squares: " & intNumberOfSquares, vbInformation, _ 
 "Document Created Example" 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.