Compartir a través de


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

Objeto Application

Autoguardado

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.