傳回使用中的 Page 物件。 唯讀。
語法
運算式。ActivePage
運算式 代表 全域 物件的變數。
傳回值
頁面
註解
只有當使用中視窗顯示繪圖頁面時，ActivePage 屬性才會傳回 Page 物件；否則，它會傳回 Nothing。 若要驗證頁面是否為使用中，請使用 Is 運算子將 ActivePage 屬性與 Nothing 做比較。
您可以從 Microsoft Visio 全域物件中取得使用中視窗，該物件會自動提供給屬於 Visio 文件之 VBA 專案一部分的 VBA 程式碼。 例如，您可以使用下列程式碼：
Set vsoPage = ActivePage
範例
這個Microsoft Visual Basic for Applications (VBA) 巨集 示範如何從 Visio 全域物件中取得使用中頁面，而無條件提供該物件，該全域物件會自動提供給做為 Visio 文件之 VBA 專案一部分的 VBA 程式碼。
Public Sub ActivePage_Example()
Dim vsoPage As Page
'Find out if a page exists, and if it does, get the page.
If Not(ActivePage Is Nothing) Then
Set vsoPage = ActivePage
Debug.Print vsoPage.Name
Else
Debug.Print "No active page."
End If
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。