Evento Application.PresentationSave (PowerPoint)

Se produce antes de que se guarde cualquier presentación abierta.

Sintaxis

expresión. PresentationSave( _Pres_ )

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.

Observaciones

Para obtener información sobre cómo usar eventos con el objeto Application, vea Procedimiento para usar eventos con el objeto Application.

Ejemplo

En este ejemplo se guarda la presentación actual como un archivo HTML versión 4.0 con el nombre "mallard.htm". A continuación, se muestra un mensaje que indica que la presentación a la que se ha asignado un nombre se va a guardar tanto en formato de PowerPoint como HTML.

Private Sub App_PresentationSave(ByVal Pres As Presentation)
    With Pres.PublishObjects(1)

        PresName = .SlideShowName
        .SourceType = ppPublishAll
        .FileName = "C:\HTMLPres\mallard.htm"
        .HTMLVersion = ppHTMLVersion4

        MsgBox ("Saving presentation " & "'" _
            & PresName & "'" & " in PowerPoint" _
            & Chr(10) & Chr(13) _
            & " format and HTML version 4.0 format")
			
        .Publish
    End With
End Sub

Vea también

Objeto Application

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.