Compartir a través de

Método Selection.GetIDs (Visio)

  • Artículo

Obtiene los identificadores de las formas de la selección.

Nota:

Este objeto o miembro Visio solo se encuentra disponible para los usuarios con licencia de Visio Professional 2013.

Sintaxis

expresión. GetIDs(ShapeIDs())

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

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
ShapeIDs() Necesario Long Parámetro de salida. Matriz segura de los identificadores de las formas de tipo Long correspondientes a las formas de la selección.

Valor devuelto

Nothing

Comentarios

Microsoft Visio usa números de identificador para identificar formas, conjuntos de registros y filas de datos. Los identificadores de formas son exclusivos sólo dentro del ámbito de la página en la que se encuentran. Después de determinar estos identificadores de forma, puede pasarlos al método Page.LinkShapesToDataRows para especificar exactamente cómo deben vincularse las formas del diagrama a las filas de datos de los conjuntos de registros de datos disponibles. Los identificadores de forma son únicos dentro del ámbito de una página determinada.

Para determinar el identificador de una forma que forma parte de una selección, use el método Selection.GetIDs.

El conjunto de identificadores de forma devueltos viene determinado por el valor de la propiedad Selection.IterationMode .

Ejemplo:

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar el método GetIDs para obtener los identificadores de formas en una selección e imprimir los identificadores en la ventana Inmediato. Selecciona todas las formas de la ventana activa.

Public Sub GetIDs_Example() 
 
    Dim vsoSelection As Visio.Selection 
    Dim lngShapeID As Long
    Dim intShapeIndex As Integer 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
     
    Call vsoSelection.GetIDs(lngShapeIDs) 
     
    For intShapeIndex = LBound(lngShapeIDs) To UBound(lngShapeIDs) 
        lngShapeID = lngShapeIDs(intShapeIndex)
        Debug.Print lngShapeID 
    Next 
 
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.