Método Page.GetShapesLinkedToData (Visio)

Devuelve una matriz con todas las formas de la página activa vinculadas a los datos del conjunto de registros de datos especificado.

Nota:

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

Sintaxis

expresión. GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

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

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
DataRecordsetID	Necesario	Long	Identificador del conjunto de registros de datos contenido en el documento activo.
ShapeIDs()	Necesario	Long	Parámetro de salida. Matriz de tipo Long que el método devolverá rellenada con los identificadores de formas de las formas de la página vinculada al conjunto de registros de datos especificado en DataRecordsetID.

Valor devuelto

Nothing

Comentarios

Para el parámetro ShapeIDs(), pase una matriz vacía y sin dimensiones de tipo Long. Si no hay ninguna forma vinculada en la página, GetShapesLinkedToData devolverá una matriz vacía.

Para determinar la fila de datos específica a la que están vinculadas las formas del conjunto de registros de datos, use el método Page.GetShapesLinkedToDataRow .

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo utilizar el método GetShapesLinkedToData para determinar los identificadores de formas de las formas de la página vinculadas a los datos del último conjunto de registros de datos agregado a la colección DataRecordsets del documento actual. Se imprimen los identificadores de formas en la ventana Immediate (Inmediato).

Antes de ejecutar esta macro, use el método DataRecordsets.Add u otro medio para agregar al menos un conjunto de registros de datos a la colección DataRecordsets y asegúrese de que haya al menos una forma en la página activa vinculada a los datos del conjunto de registros de datos.

Public Sub GetShapesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    ActivePage.GetShapesLinkedToData vsoDataRecordset.ID, alngShapeIDs 
     
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    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.