Table of contents
TOC
Recolher sumário
Expandir sumário

Evento Application.PresentationSave (PowerPoint)Application.PresentationSave Event (PowerPoint)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Ocorre antes de qualquer apresentação aberta ser salva.Occurs before any open presentation is saved.

SintaxeSyntax

expressão. PresentationSave ( Pré-instalação )expression. PresentationSave( Pres )

expressão Uma variável que representa um objeto Application .expression A variable that represents an Application object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData TypeDescriçãoDescription
Pré-instalaçãoPresObrigatórioRequiredApresentaçãoPresentationA apresentação a ser salva.The presentation to be saved.

ComentáriosRemarks

Para obter informações sobre como usar eventos com o objeto Application , consultecomo: usar eventos com o objeto Application.For information about using events with the Application object, seeHow to: Use Events with the Application Object.

ExemploExample

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.This example saves the current presentation as an HTML version 4.0 file with the name "mallard.htm." It then displays a message indicating that the current named presentation is being saved in both PowerPoint and HTML formats.

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

Ver tambémSee also

ConceitosConcepts

Objeto ApplicationApplication Object

© 2018 Microsoft