Page.OriginalPage 属性 (Visio)

返回 Page 对象，该对象代表原始 Microsoft Visio 绘图页，该页由绘图的审阅者在单独的标记覆盖上标记。 此为只读属性。

语法

expression。 OriginalPage

表达 一个代表 Page 对象的变量。

返回值

Page

备注

如果 Page 父对象不是标记贴，则 OriginalPage 返回错误。 若要确定页面是否为标记覆盖，请检查 Page.Type = visTypeMarkup 是否 (3) 。

如果用户单击“跟踪标记”，Visio 将创建一个 visTypeMarkup 类型的新页。 原始页的类型为 visTypeForeground 或 visTypeBackground。 每个标记贴都与唯一的原始绘图页相关联。

示例

此 Microsoft Visual Basic for Applications (VBA) 宏使用 OriginalPage 属性获取标记覆盖上标记的原始页面的名称，并将其显示在“即时”窗口中。 运行此宏之前，请确保绘图页显示在活动窗口中。

Public Sub OriginalPage_Example() 
 
 'Turn on Track Markup to make a markup overlay the active page. 
 Application.ActiveDocument.DocumentSheet.CellsSRC(visSectionObject, visRowDoc, visDocAddMarkup).FormulaU = True 
 
 'Display the name of the original page that currently is being marked up. 
 Debug.Print ActivePage.OriginalPage.Name 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。