Свойство Page.ReviewerID (Visio)

Статья
04/07/2023

Возвращает идентификатор рецензента, связанного с наложением разметки. Только для чтения.

Синтаксис

выражение. ReviewerID

Выражение Переменная, представляющая объект Page .

Возвращаемое значение

Длинное целое

Замечания

Свойство ReviewerID допустимо только для наложения разметки. Чтобы определить, является ли страница наложением разметки, проверьте, является ли Page.Type = visTypeMarkup (3). При попытке получить значение ReviewerID для страниц переднего плана и фоновых страниц, которые не являются наложениями разметки, Microsoft Visio возвращает ошибку.

Идентификатор рецензента, возвращенный свойством ReviewerID , соответствует одной из строк в разделе Рецензент таблицы фигур документа. Ячейка ShapeSheet, содержащая идентификатор рецензента, скрыта в пользовательском интерфейсе shapeSheet документа, но вы можете определить имя пользователя и инициалы, связанные с идентификатором каждого рецензента, с помощью свойства Document.DocumentSheet.CellsSRC страницы. См. следующий пример.

Примечание.

Чтобы просмотреть таблицу фигур документа, на вкладке Разработчик выберите Обозреватель документов, щелкните правой кнопкой мыши имя документа и выберите команду Показать таблицу фигур.

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) использует свойство ReviewerID для получения идентификатора рецензента, связанного с наложением разметки, а затем выводит имя рецензента в окне Интерпретация. Сначала он определяет, является ли активная страница наложением разметки, и если да, то получает идентификатор рецензента. Перед выполнением этого макроса убедитесь, что в окне документа 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 и обратная связь.

Поделиться через