通过

Page.ReviewerID 属性 (Visio)

  • 项目

获取与标记贴关联的审阅者 ID。 此为只读属性。

语法

expression。 ReviewerID

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

返回值

Long

备注

ReviewerID 属性仅对标记贴有效。 若要确定页面是否为标记覆盖，请检查 Page.Type = visTypeMarkup 是否 (3) 。 如果尝试获取前台页和非标记覆盖背景页的 ReviewerID 值，Microsoft Visio 将返回错误。

ReviewerID 属性返回的审阅者 ID 与文档的 ShapeSheet 的 Reviewer 内容中的一行相对应。 包含审阅者 ID 的 ShapeSheet 单元格隐藏在文档 ShapeSheet 用户界面中，但您可以通过使用页面的 Document.DocumentSheet.CellsSRC 属性来确定与每个审阅者 ID 相关联的用户名和缩写。 请参阅下面的示例。

注意

若要查看文档的 ShapeSheet，请在“ 开发工具 ”选项卡上选择“ 绘图资源管理器”，右键单击文档的名称，然后单击“ 显示 ShapeSheet”。

示例

此 Microsoft Visual Basic for Applications (VBA) 宏使用 ReviewerID 属性获取与标记覆盖关联的审阅者的 ID，然后在“即时”窗口中打印审阅者的姓名。 该宏首先确定活动页是否为标记贴，如果是，则获取审阅者 ID。 在运行此宏之前，请确保 Visio 绘图窗口中有活动绘图页。

Public Sub ReviewerID_Example() 
 Dim vsoPage As Visio.Page 
 Dim intCounter As Integer 
 
 Set vsoPage = ActivePage 
 
 If vsoPage.Type = visTypeMarkup Then 
 
 For intCounter = 0 To vsoPage.Document.DocumentSheet.RowCount(visSectionReviewer) - 1 
 
 If vsoPage.ReviewerID = vsoPage.Document.DocumentSheet.CellsSRC(visSectionReviewer, visRowReviewer + intCounter, visReviewerReviewerID).ResultStr(0) Then 
 
 Debug.Print "Reviewer name is: "; vsoPage.Document.DocumentSheet.CellsSRC(visSectionReviewer, visRowReviewer + intCounter, visReviewerName).ResultStr(0) 
 
 End If 
 
 Next intCounter 
 
 Else 
 
 Debug.Print "Active page is not a markup overlay." 
 
 End If 
 
End Sub

支持和反馈

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