Visio) (Application.ActivePage 屬性

傳回使用中的 Page 物件。 唯讀。

語法

運算式。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 支援與意見反應。