Événement Document.DocumentCreated (Visio)

Cet événement se produit après la création d’un document.

Syntaxe

expression. DocumentCreated (doc)

Expression Variable qui représente un objet Document .

Parameters

Remarques

L'événement DocumentCreated est fréquemment ajouté à la collection EventList d'un fichier de modèle Microsoft Visio (.vst). L'action de l'événement est déclenchée lors de la création d'un nouveau document à partir de ce modèle.

Si vous utilisez Microsoft Visual Basic ou Visual Basic pour Applications (VBA), la syntaxe de cette rubrique décrit un moyen générique pour gérer efficacement les événements.

Si vous souhaitez créer vos propres objets Event , utilisez la méthode Add ou AddAdvise .

Pour créer un objet Event qui exécute un module complémentaire, utilisez la méthode Add applicable à la collection EventList.

Pour créer un objet Event qui reçoit des notifications, utilisez la méthode AddAdvise.

Pour rechercher le code de l’événement à créer, voir Codes d’événement.

Vous pouvez ajouter des événements DocumentCreated à la collection EventList d'un objet Application, d'une collection Documents ou d'un objet Document. Les deux premiers sont simples : si un document est ouvert ou créé dans l'étendue de l'objet Application ou de sa collection Documents, l'événement DocumentCreated se produit.

Toutefois, l'ajout d'un événement DocumentCreated à la collection EventList d'un objet Document n'a de sens que si l'action de l'événement est visActCodeRunAddon. L'événement est alors persistant ; il peut être stocké avec le document. Si le document contenant l'événement persistant est ouvert, son action est déclenchée. Si un nouveau document se base sur le document ou constitue une copie du document qui contient l'événement persistant, l'événement DocumentCreated est copié dans le nouveau document et son action est déclenchée. En revanche, si l'action de l'événement est visActCodeAdvise, ce dernier ne peut pas être persistant et n'est donc pas stocké avec le document ; il n'est alors jamais déclenché.

Vous pouvez empêcher l'exécution du code en réponse à l'événement DocumentCreated, DocumentOpened ou DocumentAdded, ainsi que le déclenchement de tous les événements en attribuant la valeur False à la propriété EventsEnabled d'un objet Application.

Exemple

Cet exemple VBA indique comment compter les formes ajoutées à un dessin basées sur une forme de base appelée Carré.

Le gestionnaire d'événement DocumentCreated s'exécute lorsqu'un nouveau dessin basé sur le modèle qui contient ce code est créé. Le gestionnaire initialise une variable de type Entier, NombreEntierCarrés, utilisée pour stocker le total.

Le gestionnaire d'événement ShapeAdded est exécuté chaque fois qu'une forme est ajoutée à la page de dessin, que cette forme provienne d'un gabarit, soit dessinée avec un outil de dessin ou collée à partir du Presse-papiers. Le gestionnaire vérifie la propriété Master de la nouvelle forme et, si la forme est basée sur la forme carrée , incrémente 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.