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 全域物件會自動提供給屬於 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 支援與意見反應。