Использование событий с объектом ApplicationUse Events with the Application Object

Чтобы создать обработчик событий для события объекта Application , необходимо выполнить следующие три действия:To create an event handler for an event of the Application object, you need to complete the following three steps:

  1. Объявите объектную переменную в модуле класса для ответа на события.Declare an object variable in a class module to respond to the events.

  2. Напишите конкретные процедуры обработки событий.Write the specific event procedures.

  3. Инициализируйте объявленный объект из другого модуля.Initialize the declared object from another module.

Объявление объектной переменнойDeclare the Object Variable

Прежде чем можно будет создавать процедуры для событий объекта Application , необходимо создать новый модуль класса и объявить объект типа Application с событиями.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. Новый модуль класса содержит приведенный ниже код.The new class module contains the following code.

Public WithEvents App As Application

Написание процедур обработки событийWrite the Event Procedures

После объявления нового объекта с событиями он отображается в списке объектов в модуле класса, и вы можете написать процедуры обработки событий для нового объекта.After the new object is declared with events, it appears in the Object list in the class module, and you can write event procedures for the new object. (При выборе нового объекта в списке объект допустимые события для этого объекта перечислены в списке процедура .) Выберите событие из списка процедуры ; в модуль класса добавляется пустая процедура.(When you select the new object in the Object list, the valid events for that object are listed in the Procedure list.) Select an event from the Procedure list; an empty procedure is added to the class module.

Private Sub App_NewPresentation()

End Sub

Инициализация объявляемого объектаInitializing the Declared Object

Перед выполнением процедуры необходимо подключить объявленный объект в модуле класса (приложение в данном примере) к объекту Application .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. После выполнения процедуры объект App в модуле класса указывает на объект приложения Microsoft Office PowerPoint, а процедуры обработки события в модуле класса будут выполняться при возникновении событий.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 and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.