通过

Application.ActivePage 属性 (Visio)

  • 项目

返回活动的 Page 对象。 此为只读属性。

语法

表达式。ActivePage

expression：表示 Application 对象的变量。

返回值

Page

备注

仅当活动窗口显示绘图页时，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 项目的一部分）获取活动页面（不带资格）。

 
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。