Propiedad Viewer.SelectedShapeIndex (Visio Viewer)

Obtiene el índice de la colección de formas de la forma seleccionada en el dibujo abierto en Microsoft Visio Viewer. Solo lectura.

Sintaxis

expresión. SelectedShapeIndex

Expresión Expresión que devuelve un objeto Viewer .

Valor devuelto

Long

Comentarios

La colección de formas está basada en uno, por lo que el índice de la primera forma de la colección es 1.

Si no se selecciona ninguna forma en el dibujo, la propiedad SelectedShapeIndex devuelve 0.

Ejemplo:

El código siguiente recorre en iteración la colección de formas del documento que está abierta en Visio Viewer, selecciona cada forma a su vez y, a continuación, obtiene el valor del primer elemento de datos de forma (propiedad personalizada) asignado a cada forma. Si detecta un valor de propiedad personalizado de Computer 100, muestra un cuadro de mensaje en ese sentido.

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

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.