InvisibleApp. DocumentSaved-Ereignis (Visio)InvisibleApp.DocumentSaved event (Visio)

Tritt ein, nachdem ein Dokument gespeichert wurde.Occurs after a document is saved.

SyntaxSyntax

Ausdruck. DocumentSaved (doc)expression.DocumentSaved (doc)

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
docdoc ErforderlichRequired [IVDOCUMENT][IVDOCUMENT] Das Dokument, das gespeichert wurde.The document that was saved.

BemerkungenRemarks

Wenn Sie Microsoft Visual Basic oder Visual Basic für Applikationen (VBA) verwenden, beschreibt die Syntax in diesem Thema eine gängige und effiziente Methode zum Verarbeiten von Ereignissen.If you are using Microsoft Visual Basic or Visual Basic for Applications (VBA), the syntax in this topic describes a common, efficient way to handle events.

Wenn Sie eigene Event -Objekte erstellen möchten, verwenden Sie die Add - oder AddAdvise-Methode.If you want to create your own Event objects, use the Add or AddAdvise method.

Verwenden Sie zum Erstellen eines Event-Objekts, das ein Add-On ausführt, die Add-Methode der EventList-Auflistung.To create an Event object that runs an add-on, use the Add method as it applies to the EventList collection.

Verwenden Sie zum Erstellen eines Event-Objekts, das eine Benachrichtigung empfängt, die AddAdvise-Methode.To create an Event object that receives notification, use the AddAdvise method.

Informationen zum Suchen eines Ereigniscodes für das Ereignis, das Sie erstellen möchten, finden Sie unter Ereigniscodes.To find an event code for the event that you want to create, see Event codes.

BeispielExample

In diesem Beispiel wird gezeigt, wie Sie ein Klassenmodul zum Behandeln von Ereignissen erstellen, die von einem Quellobjekt in Microsoft Visio ausgelöst werden, z. B. das Document-Objekt.This example shows how to create a class module to handle events fired by a source object in Microsoft Visio, for example, the Document object. Das Modul besteht aus der VisEventProc-Funktion, die einen Select Case-Block zum Überprüfen von drei Ereignissen verwendet: DocumentSaved, PageAdded und ShapesDeleted.The module consists of the function VisEventProc, which uses a Select Case block to check for three events: DocumentSaved, PageAdded, and ShapesDeleted. Andere Ereignisse fallen unter den Standardfall (Case Else).Other events fall under the default case (Case Else). Jeder Case-Block erstellt eine Zeichenfolge (strMessage), die den Namen und den Ereigniscode des ausgelösten Ereignisses enthält.Each Case block constructs a string (strMessage) that contains the name and event code of the event that fired. Schließlich wird die Zeichenfolge von der Funktion im Direktfenster angezeigt.Finally, the function displays the string in the Immediate window.

Kopieren Sie diesen Beispielcode in ein neues Klassenmodul in VBA oder Visual Basic, und benennen Sie das Modul clsEventSink.Copy this sample code into a new class module in VBA or Visual Basic, naming the module clsEventSink. Anschließend können Sie ein Event-Sink-Modul verwenden, um eine Instanz der clsEventSink -Klasse und der Event -Objekte zu erstellen, die Benachrichtigungen über Ereignis Auslösungen an die Klasseninstanz senden.You can then use an event-sink module to create an instance of the clsEventSink class and Event objects that send notifications of event firings to the class instance. Informationen zum Erstellen eines Moduls für einen Ereignisempfänger finden Sie im Beispiel für die AddAdvise -Methode.To see how to create an event-sink module, refer to the example for the AddAdvise method.

 
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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.