É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
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Prés | Requis | Presentation | Présentation qui est enregistrée. |
Cancel | Obligatoire | Boolean | True pour annuler l’enregistrement. |
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
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.