Événement Application.PresentationBeforeSave (PowerPoint)

Cet événement se produit avant l’enregistrement d’une présentation.

Syntaxe

expression. PresentationBeforeSave( _Pres_, _Cancel_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Remarques

Cet événement se déclenche lorsque la boîte de dialogue Enregistrer sous s’affiche.

Pour accéder aux événements Application, déclarez une variable Application dans la section des déclarations générales de votre code. Définissez ensuite la variable comme étant égale à l'objet Application pour laquelle vous souhaitez accéder aux événements. Pour plus d’informations sur les événements liés à l’objet Application de Microsoft PowerPoint, voir Utilisation des événements avec l’objet Application.

Exemple

Cet exemple vérifie s’il existe des révisions dans une présentation et, le cas échéant, demande s’il faut enregistrer la présentation. Si l’utilisateur répond négativement, l’opération est annulée. Cet exemple suppose qu’un objet Application appelé PPTApp a été déclaré en utilisant le mot clé WithEvents.

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

Voir aussi

Objet Application

Enregistrement automatique

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.