Application.PresentationBeforeSave-Ereignis (PowerPoint)

Tritt vor dem Speichern einer Präsentation ein.

Syntax

Ausdruck. PresentationBeforeSave( _Pres_, _Cancel_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Pres Erforderlich Presentation Die gespeicherte Präsentation.
Cancel Erforderlich Boolean True, wenn der Speichervorgang abgebrochen werden.

HinwBemerkungeneise

Dieses Ereignis wird ausgelöst, wenn das Dialogfeld Speichern unter angezeigt wird.

Deklarieren Sie Zugriff auf die Anwendungsereignisseeine Anwendungsvariable im allgemeinen Deklarationsbereich des Codes. Klicken Sie dann weisen Sie der Variablen das Application -Objekt für das Sie auf Ereignisse zugreifen möchten. Informationen zum Verwenden von Ereignissen des Application-Objekts von Microsoft PowerPoint finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.

Beispiel

In diesem Beispiel wird überprüft, ob in einer Präsentation Revisionen vorhanden sind, und falls vorhanden, wird gefragt, ob die Präsentation gespeichert werden soll. Wenn Antwort des Benutzers ist Nein, Verarbeiten der Speichervorgang abgebrochen wird. In diesem Beispiel wird davon ausgegangen, dass ein Application -Objekt aufgerufen verneint mithilfe des WithEvents -Schlüsselworts deklariert wurde.

Private Sub PPTApp_PresentationBeforeSave(ByVal Pres As Presentation, _
        Cancel As Boolean)

    Dim intResponse As Integer

    Set Pres = ActivePresentation

    If Pres.HasRevisionInfo Then

        intResponse = MsgBox(Prompt:="The presentation contains revisions. " & _
            "Do you want to accept the revisions before saving?", Buttons:=vbYesNo)

        If intResponse = vbYes Then

            Cancel = True

            MsgBox "Your presentation was not saved."

        End If

    End If

End Sub

Siehe auch

Application-Objekt

AutoSave

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.