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.

Comentarios

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.