Compartir a través de

Método Shape.GetLinkedDataRecordsetIDs (Visio)

Obtiene los identificadores de todos los conjuntos de registros de datos que contengan filas de datos vinculadas a la forma.

Nota:

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

Sintaxis

expresión. GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

expresión Expresión que devuelve un objeto Shape .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
DataRecordsetIDs() Necesario Long Parámetro de salida. Matriz de identificadores de conjuntos de registros de datos que contienen filas de datos vinculadas a la forma.

Valor devuelto

Nothing

Comentarios

Para el parámetro DataRecordsetIDs(), debe pasar una matriz vacía sin dimensiones de tipo Long que el método completará con los identificadores de los conjuntos de registros de datos que contengan filas de datos vinculadas a la forma.

Ejemplo

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar el método GetLinkedDataRecordsetIDs para obtener los identificadores de todos los conjuntos de registros de datos que contienen filas de datos vinculadas a la forma.

Antes de ejecutar esta macro, agregue al menos dos conjuntos de registros de datos a la colección DataRecordsets del documento. La macro coloca una forma en la página, vincula la forma a los datos de los dos conjuntos de registros de datos agregados más recientemente a la colección y, a continuación, imprime los identificadores de los conjuntos de registros de datos vinculados devueltos por el método GetLinkedDataRecordsetIDs en la ventana Inmediato.

Public Sub GetLinkedDataRecordsetIDs_Example() 
 
    Dim vsoDataRecordset1 As Visio.DataRecordset 
    Dim vsoDataRecordset2 As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim alngDataRecordsetIDs() As Long 
    Dim intArrayIndex As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset1 = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoDataRecordset2 = Visio.ActiveDocument.DataRecordsets(intCount - 1) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset1.ID, 1, True 
    vsoShape.LinkToData vsoDataRecordset2.ID, 2, True 
         
    vsoShape.GetLinkedDataRecordsetIDs alngDataRecordsetIDs 
         
    For intArrayIndex = LBound(alngDataRecordsetIDs) To UBound(alngDataRecordsetIDs) 
        Debug.Print alngDataRecordsetIDs(intArrayIndex) 
    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.

  • Last updated on