Compartir a través de

Propiedad Page.ReviewerID (Visio)

  • Artículo

Obtiene el identificador de revisor asociado a la superposición de revisiones. Solo lectura.

Sintaxis

expresión. ReviewerID

Expresión Variable que representa un objeto Page .

Valor devuelto

Long

Comentarios

La propiedad ReviewerID sólo es válida para revisiones superpuestas. Para determinar si una página es una superposición de marcado, compruebe si Page.Type = visTypeMarkup (3). Si intenta obtener el valor ReviewerID para las páginas en primer plano y para las páginas en segundo plano que no son superposiciones de marcado, Microsoft Visio devuelve un error.

El identificador de revisor devuelto por la propiedad ReviewerID corresponde a una de las filas de la sección de revisor de la ShapeSheet del documento. Aunque la celda ShapeSheet que contiene el identificador de revisor se encuentra oculta en la interfaz de usuario ShapeSheet del documento, podrá determinar el nombre de usuario y las iniciales asociadas a cada identificador de revisor utilizando la propiedad Document.DocumentSheet.CellsSRC de la página. Vea el ejemplo siguiente.

Nota:

Para ver la ShapeSheet de un documento, en la pestaña Programador , seleccione Explorador de dibujos, haga clic con el botón derecho en el nombre del documento y, a continuación, haga clic en Mostrar shapeSheet.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) usa la propiedad ReviewerID para obtener el identificador del revisor asociado a una superposición de marcado y, a continuación, imprime el nombre del revisor en la ventana Inmediato. En primer lugar, determina si la página activa es una superposición de revisiones y, si es así, obtiene el identificador de revisor. Antes de ejecutar esta macro, asegúrese de que haya una página de dibujo activa en la ventana de dibujo de 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.