Evento Application.PresentationBeforeSave (PowerPoint)

Ocorre antes de uma apresentação ser salva.

Sintaxe

expressão. PresentationBeforeSave( _Pres_, _Cancel_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Pres	Obrigatório	Presentation	A apresentação que está sendo salva.
Cancel	Obrigatório	Boolean	True para cancelar o salvamento do processo.

Comentários

Este evento é acionado quando aparece a caixa de diálogo Salvar Como.

Para acessar os eventos do aplicativo, declare uma variável de aplicativo, na seção Declaração geral do seu código. Em seguida, defina a variável igual ao objeto de aplicativo para o qual você deseja acessar eventos. Para obter mais informações sobre o uso de eventos com o objeto Application do Microsoft PowerPoint, consulte Como usar eventos com o objeto Application.

Exemplo

Este exemplo verifica se há revisões em uma apresentação e, se houver, pergunta se deve salvar a apresentação. Se a resposta do usuário for não, o processo de salvamento será cancelada. Este exemplo supõe que um objeto Application chamado PPTApp foi declarado usando a palavra-chave WithEvents.

Private Sub PPTApp_PresentationBeforeSave(ByVal Pres As Presentation, _
        Cancel As Boolean)

    Dim intResponse As Integer

    Set Pres = ActivePresentation

    If Pres.HasRevisionInfo Then

        intResponse = MsgBox(Prompt:="The presentation contains revisions. " & _
            "Do you want to accept the revisions before saving?", Buttons:=vbYesNo)

        If intResponse = vbYes Then

            Cancel = True

            MsgBox "Your presentation was not saved."

        End If

    End If

End Sub

Confira também

Objeto Application

Salvamento Automático

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.