Événement Document.DocumentSaved (Visio)

Article
04/07/2023

Cet événement se produit après l’enregistrement d’un document.

Syntaxe

expression. DocumentSaved (doc)

Expression Variable qui représente un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
doc	Requis	[IVDOCUMENT]	Document qui a été enregistré.

Remarques

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.

Exemple

Cet exemple indique comment créer un module de classe pour gérer des événements déclenchés par un objet source dans Microsoft Visio, par exemple l’objet Document. Le module est composé de la fonction VisEventProc qui utilise un bloc Select Case pour vérifier trois événements : DocumentSaved, PageAdded et ShapesDeleted. Les autres événements relèvent du cas par défaut (Case Else). Chaque bloc Case construit une chaîne ( strMessage ) qui contient le nom et le code d’événement de l’événement qui s’est déclenché. Enfin, la fonction affiche la chaîne dans la fenêtre Exécution.

Copiez cet exemple de code dans un nouveau module de classe en VBA ou Visual Basic, en nommant le module clsEventSink. Vous pouvez ensuite utiliser un module récepteur d’événements pour créer une instance de la classe clsEventSink et des objets Event qui envoient des notifications de déclenchements d’événements à l’instance de classe. Pour voir comment créer un module récepteur d'événement, reportez-vous à l'exemple pour la méthode AddAdvise.

 
Implements Visio.IVisEventProc 
 
'Declare visEvtAdd as a 2-byte value 
'to avoid a run-time overflow error 
Private Const visEvtAdd% = &H8000 
 
Private Function IVisEventProc_VisEventProc( _ 
 ByVal nEventCode As Integer, _ 
 ByVal pSourceObj As Object, _ 
 ByVal nEventID As Long, _ 
 ByVal nEventSeqNum As Long, _ 
 ByVal pSubjectObj As Object, _ 
 ByVal vMoreInfo As Variant) As Variant 
 
 Dim strMessage As String 
 
 'Find out which event fired 
 Select Case nEventCode 
 Case visEvtCodeDocSave 
 strMessage = "DocumentSaved (" & nEventCode & ")" 
 Case (visEvtPage + visEvtAdd) 
 strMessage = "PageAdded (" & nEventCode & ")" 
 Case visEvtCodeShapeDelete 
 strMessage = "ShapesDeleted(" & nEventCode & ")" 
 Case Else 
 strMessage = "Other (" & nEventCode & ")" 
 End Select 
 
 'Display the event name and the event code 
 Debug.Print strMessage 
 
End Function

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.

Partager via