Compartir a través de

Uso de eventos con el objeto Application

  • Artículo

Para crear un controlador de eventos para un evento del objeto Application, tiene que completar los tres pasos siguientes:

  1. Declarar una variable de objeto en un módulo de clase para que responda a los eventos.

  2. Escribir los procedimientos del evento específicos.

  3. Inicializar el objeto declarado desde otro módulo.

Declarar la variable Object

Antes de poder escribir procedimientos para los eventos del objeto Application, deberá crear un nuevo módulo de clase y declarar un objeto del tipo Application con eventos. Por ejemplo, supongamos que se crea un nuevo módulo de clase y que se denomina EventClassModule. El nuevo módulo de clase contendrá el siguiente código.

Public WithEvents App As Application

Escribir los procedimientos evento

Una vez declarado el nuevo objeto con eventos, aparece en la lista Objeto del módulo de clase y puede escribir los procedimientos del evento del nuevo objeto. (Al seleccionar el nuevo objeto en la lista Objeto , los eventos válidos para ese objeto se enumeran en la lista Procedimiento ). Seleccione un evento en la lista Procedimiento ; se agrega un procedimiento vacío al módulo de clase.

Private Sub App_NewPresentation()

End Sub

Inicializar el objeto declarado

Antes de que se ejecute el procedimiento, deberá conectar el objeto declarado del módulo de clase, App en este ejemplo, con el objeto Application. Puede hacerlo desde cualquier módulo, mediante el código siguiente:

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

Ejecute el procedimiento InitializeApp. A continuación, el objeto App del módulo de clase señala al objeto Application de Microsoft PowerPoint y se ejecutan los procedimientos del evento del módulo de clase cuando se produzcan los eventos.

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.