Compartilhar via

Propriedade Viewer.SelectedShapeIndex (Visualizador do Visio)

  • Artigo

Obtém o índice na coleção de formas da forma selecionada no desenho aberto em Visualizador do Microsoft Visio. Somente leitura.

Sintaxe

expressão. SelectedShapeIndex

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

Valor de retorno

Long

Comentários

A coleção de formas é baseada em um, portanto, o índice da primeira forma da coleção é 1.

Se nenhuma forma for selecionada no desenho, a propriedade SelectedShapeIndex retornará 0.

Exemplo

O código a seguir itera por meio da coleção de formas no documento que está aberta em Visualizador do Visio, seleciona cada forma por sua vez e obtém o valor do primeiro item de dados de forma (propriedade personalizada) atribuído a cada forma. Se ele descobrir um valor de propriedade personalizado do Computador 100, ele exibirá uma caixa de mensagens nesse efeito.

Dim intSelectedShapeIndex As Integer

Dim intShapeCounter As Integer

For intShapeCounter = 1 To vsoViewer.ShapeCount

    vsoViewer.SelectShape (intShapeCounter)

    intSelectedShapeIndex = vsoViewer.SelectedShapeIndex

    If vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1) = "Computer 100" Then

        Interaction.MsgBox ("Selected shape name is " & vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1))

    End If

Next

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.