返回活动的 Page 对象。 此为只读属性。
语法
表达式。ActivePage
表达 一个代表 Global 对象的变量。
返回值
Page
备注
仅当活动窗口显示绘图页时，ActivePage 属性返回 Page 对象；否则，它返回 Nothing。 要验证页面是否是活动的，请使用 Is 运算符来比较 ActivePage 属性和 Nothing。
无需限定即可从 Microsoft Visio 全局对象获取活动窗口，该对象自动提供给作为 Visio 文档 VBA 项目的一部分的 VBA 代码。 例如，可以使用以下代码：
Set vsoPage = 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。