Application.PresentationBeforeSave-Ereignis (PowerPoint)

Artikel
10/16/2024

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.

Hinweise

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.

Freigeben über