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
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.