Compartilhar via


Propriedade Page.ReviewerID (Visio)

Obtém a ID do revisor associada à sobreposição de marcação. Somente leitura.

Sintaxe

expression. ReviewerID

Expressão Uma variável que representa um objeto Page .

Valor de retorno

Long

Comentários

A propriedade ReviewerID é válida somente para sobreposições de marcação. Para determinar se uma página é uma sobreposição de marcação, verifique se Page.Type = visTypeMarkup (3). Se você tentar obter o valor ReviewerID para páginas em primeiro plano e para páginas em segundo plano que não são sobreposições de marcação, o Microsoft Visio retornará um erro.

A ID do revisor retornada pela propriedade ReviewerID corresponde a uma das linhas na seção Reviewer da ShapeSheet do documento. A célula ShapeSheet que contém a ID do revisor está oculta na interface do usuário ShapeSheet do documento, mas você pode determinar o nome do usuário e as iniciais associadas a cada ID de revisor usando a propriedade Document.DocumentSheet.CellsSRC da página. Vejo o exemplo a seguir.

Observação

Para exibir o ShapeSheet de um documento, na guia Desenvolvedor , selecione Explorador de Desenho, clique com o botão direito do mouse no nome do documento e clique em Mostrar ShapeSheet.

Exemplo

Essa macro do Microsoft Visual Basic for Applications (VBA) usa a propriedade ReviewerID para obter a ID do revisor associada a uma sobreposição de marcação e, em seguida, imprime o nome do revisor na janela Imediato. Ela primeiro determina se a página ativa é uma sobreposição de marcação e, se sim, obtém a ID do revisor. Antes de executar essa macro, verifique se há uma página de desenho ativa na janela de desenho do 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.