Evento Application.PresentationBeforeSave (PowerPoint)
Se produce antes de que se guarde una presentación.
Sintaxis
expresión. PresentationBeforeSave( _Pres_, _Cancel_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Pres | Obligatorio | Presentation | Presentación que se va a guardar. |
| Cancel | Obligatorio | Boolean | Proceso de true para cancelar la operación de guardar. |
Comentarios
Este evento se desencadena al abrir el cuadro de diálogo Guardar como.
Para obtener acceso a los eventos de aplicación, declare una variable de aplicación en la sección de declaraciones generales del código. A continuación, establezca a la variable igual al objeto de la aplicación para la que desea tener acceso a eventos. Para obtener información sobre cómo usar eventos con el objeto Application de Microsoft PowerPoint, vea Procedimiento para usar eventos con el objeto Application.
Ejemplo:
En este ejemplo se comprueba si hay revisiones en una presentación y, si las hay, se pregunta si desea guardar la presentación. Si la respuesta de un usuario es no, el proceso de guardar se ha cancelado. En este ejemplo se supone que se ha declarado un objeto Application denominado PPTApp mediante el uso de la palabra clave 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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.