共用方式為

搭配 Application 物件使用事件

  • 發行項

若要為 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 支援與意見反應。