Compartilhar via

Evento Viewer.OnReviewerChanged (Visualizador do Visio)

  • Artigo

Ocorre quando a visibilidade da marcação de um revisor específico (comentários) é alterada em Visualizador do Microsoft Visio.

Sintaxe

expressão. OnReviewerChanged (ReviewerIndex, ReviewerVisible)

Expressão Uma expressão que retorna um objeto Viewer .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ReviewerIndex Obrigatório Long O índice do revisor.
ReviewerVisible Obrigatório Boolean Indica se a marcação do revisor está visível na interface do usuário.

Valor de retorno

Nada

Comentários

A coleção de revisores no Visualizador é baseada em um, portanto, o índice do primeiro revisor da coleção é 1.

Você pode especificar se a marcação de um revisor está visível no Visualizador do Visio interface do usuário definindo a propriedade ReviewerMarkupVisible.

O evento OnReviewerChanged ocorre quando as sobreposições de marcação de um revisor específico são definidas como visíveis ou não visíveis.

O evento OnMarkupOverlaysVisibleChanged ocorre quando as sobreposições de marcação para todos os revisores em um desenho são definidas como visíveis ou não visíveis.

Exemplo

O código a seguir mostra como usar o evento OnReviewerChanged para imprimir uma mensagem na janela Imediata identificando o revisor e informando o status de visibilidade da marcação do revisor.

Private Sub vsoViewer_OnReviewerChanged(ByVal ReviewerIndex As Long, ByVal ReviewerVisible As Boolean)

    If ReviewerVisible Then

        Debug.Print "Reviewer "; vsoViewer.ReviewerName(ReviewerIndex); " markup is visible."

    Else

        Debug.Print "Reviewer "; vsoViewer.ReviewerName(ReviewerIndex); " markup is not visible."

    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.