Freigeben über

Verwenden von Ereignissen mit dem Application-Objekt

  • Artikel

Zum Erstellen eines Ereignishandlers für das Application -Objekt müssen Sie die folgenden drei Schritte ausführen:

  1. Deklarieren Sie eine Objektvariable in einem eigenen Klassenmodul speziell für die Behandlung der Ereignisse.

  2. Schreiben Sie die einzelnen Ereignisprozeduren.

  3. Initialisieren Sie das deklarierte Objekt aus einem anderen Modul heraus.

Deklarieren der Objektvariable

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. Das neue Klassenmodul enthält den folgenden Code:

Public WithEvents App As Application

Schreiben von Ereignisprozeduren

Nachdem das neue Objekt mit Ereignissen deklariert ist, wird es in der Objekt-Liste des Klassenmoduls angezeigt, und Sie können nun Ereignisprozeduren für das neue Objekt schreiben. (Die für das neue Objekt definierten Ereignisse werden in der Prozedur-Liste aufgelistet, wenn Sie das Objekt vorher in der Objekt-Liste auswählen.) Wenn Sie in der Prozedur-Liste eines der Ereignisse auswählen, wird dem Klassenmodul eine entsprechende leere Prozedur hinzugefügt:

Private Sub App_NewPresentation()

End Sub

Initialisieren des deklarierten Objekts

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

Run the InitializeApp procedure. After the procedure is run, the App object in the class module points to the Microsoft Office PowerPoint Application object, and the event procedures in the class module will run when the events occur.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.