Visionio (Application.ActivePage 屬性)

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

語法

表情。ActivePage

expression 代表 Application 物件的變數。

傳回值

頁面

註解

只有當使用中視窗顯示繪圖頁面時，ActivePage 屬性才會傳回 Page 物件；否則，它會傳回 Nothing。 若要驗證頁面是否為使用中，請使用 Is 運算子將 ActivePage 屬性與 Nothing 做比較。

你可以無需加條件地從 Microsoft Visio 全域物件取得該活動視窗，該物件會自動提供給屬於 Visio 文件 VBA 專案一部分的 VBA 程式碼。 例如，您可以使用下列程式碼：

Set vsoPage = ActivePage

如果 Visual Studio 解決方案包括 Microsoft.Office.Interop.Visio 參照，這個屬性會對應至下列類型:

• Microsoft.Office.Interop.Visio.IVApplication.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 支援與意見反應。