Global.ActivePage (Visio)

回傳活躍的 頁面 物件。 唯讀。

語法

表情。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 支援與意見反應。