Share via

Использование событий с объектом приложения

  • Статья

Чтобы создать обработчик событий для события объекта Application , необходимо выполнить следующие три шага:

  1. Объявите переменную объекта в модуле класса для реагирования на события.

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

  3. Инициализация объявленного объекта из другого модуля.

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

Перед написанием процедур для событий объекта Application необходимо создать новый модуль класса и объявить объект типа Application с событиями. Например, предположим, что создан новый модуль класса с именем EventClassModule. Новый модуль класса содержит следующий код.

Public WithEvents App As Application

Написание процедур событий

После объявления нового объекта с событиями он появится в списке Объект в модуле класса, и для нового объекта можно написать процедуры событий. (При выборе нового объекта в списке Объект допустимые события для этого объекта будут перечислены в списке Процедура .) Выберите событие из списка Процедура ; в модуль класса добавляется пустая процедура.

Private Sub App_NewPresentation()

End Sub

Инициализация объявленного объекта

Перед выполнением процедуры необходимо подключить объявленный объект в модуле класса (приложение в этом примере) с объектом Application . Это можно сделать с помощью следующего кода из любого модуля.

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

Выполните процедуру InitializeApp. После выполнения процедуры объект App в модуле класса указывает на объект Приложения Microsoft Office PowerPoint, а процедуры событий в модуле класса будут выполняться при возникновении событий.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.