Compartilhar via


Evento Application.PresentationSave (PowerPoint)

Ocorre antes de qualquer apresentação aberta ser salva.

Sintaxe

expression. PresentationSave( _Pres_ )

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Pres Obrigatório Presentation A apresentação a ser salva.

Comentários

Para obter mais informações sobre o uso de eventos com o objeto Application, consulte Como usar eventos com o objeto Application.

Exemplo

Este exemplo salva a apresentação atual como um arquivo HTML versão 4.0 com o nome "mallard.htm". Em seguida, exibe uma mensagem indicando que a apresentação nomeada atual está sendo salva nos formatos do PowerPoint e 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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.