Usar eventos com o Objeto de Aplicativo

Para criar um manipulador de eventos do objeto Application, você precisa concluir estas três etapas:

1. Declarar uma variável de objeto em um módulo de classe para responder aos eventos

2. Escrever os procedimentos de evento específicos

3. Inicializar o objeto declarado de outro módulo

Declarar a variável de objeto

Before you can write procedures for the events of the Application object, you must create a new class module and declare an object of type Application with events. For example, assume that a new class module is created and called EventClassModule. O novo módulo de classe contém o código a seguir.

Public WithEvents App As Application

Escrever os procedimentos de evento

Depois que o novo objeto for declarado com eventos, ele será exibido na lista suspensa Objeto no módulo de classe, e você poderá escrever procedimentos de evento para o novo objeto. (Quando você seleciona o novo objeto na lista Objeto , os eventos válidos para esse objeto são listados na lista Procedimento .) Selecione um evento na lista Procedimento ; um procedimento vazio é adicionado ao módulo de classe.

Private Sub App_NewPresentation()

End Sub

Inicializar o objeto declarado

Before the procedure will run, you must connect the declared object in the class module (App in this example) with the Application object. You can do this with the following code from any module.

Dim X As New EventClassModule
Sub InitializeApp()
    Set X.App = Application
End Sub

Execute o procedimento InitializeApp. Após o procedimento ser executado, o objeto App no módulo de classe apontará para o objeto Application do Microsoft Office PowerPoint e os procedimentos de evento do módulo de classe serão executados quando os eventos ocorrerem.

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.