共用方式為

將事件與應用程式物件一起使用

若要為 Application 物件的事件建立事件處理常式，您需要完成下列三個步驟：

  1. 在類別模組中宣告物件變數以回應事件

  2. 撰寫特定事件程序

  3. 從另一個模組初始化宣告的物件

宣告物件變數

在您可以撰寫 Application 物件的事件程序之前，您必須建立新的類別模組，並以事件宣告 Application 類型的物件。 例如，假設建立了新的類別模組，且其名稱為 EventClassModule。 此新類別模組將包含下列程式碼。

Public WithEvents App As Application

撰寫事件程序

當新物件以事件宣告後，它會出現在類別模組的 物件 清單中，你可以為新物件撰寫事件程序。 (當你在 物件 清單中選擇新物件時，該物件的有效事件會列在 程序 清單中。) 從 程序 清單中選擇一個事件;在類別模組中加入一個空程序。

Private Sub App_NewPresentation()

End Sub

初始化宣告的物件

您必須使用 Application 物件，在類別模組中連接宣告的物件 (本範例為 App)，此程序才能執行。 您可以從任何模組使用下列程式碼以執行此作業。

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

執行 InitializeApp 程序。 執行程序之後，類別模組中的 App 物件會指向 Microsoft Office PowerPoint Application 物件，並且當發生事件時，會執行類別模組的事件程序。

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

  • Last updated on