Método Shape.GetCustomPropertiesLinkedToData (Visio)

Obtiene los identificadores de las filas (de propiedad personalizada) de elementos de datos de formas de la sección Datos de formas de la hoja de cálculo ShapeSheet de la forma vinculada al 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. GetCustomPropertiesLinkedToData( _DataRecordsetID_ , _CustomPropertyIndices()_ )

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

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
DataRecordsetID	Necesario	Long	Identificador del conjunto de registros de datos que contiene los datos a los que está vinculada la forma.
CustomPropertyIndices()	Necesario	Long	Parámetro de salida. Matriz vacía sin dimensiones que el método rellena con los identificadores de fila de las filas shape-data-item (propiedad personalizada) de shapeSheet de la forma que están vinculadas a columnas de datos del conjunto de registros de datos.

Valor devuelto

Nothing

Comentarios

Saber cómo están vinculadas las formas a los datos permite evitar la aparición de conflictos y la ruptura de vínculos al actualizar los datos de uno o varios conjuntos de registros de datos.

Nota:

En algunas versiones anteriores de Visio, los datos de formas se denominaban propiedades personalizadas.

Ejemplo:

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar el método GetCustomPropertiesLinkedToData para obtener los identificadores de las filas shape-data-item (propiedad personalizada) vinculadas a una columna de datos de un conjunto de registros de datos.

Antes de ejecutar esta macro, agregue al menos un conjunto de registros de datos a la colección DataRecordsets del documento. En la macro se coloca una forma en la página, se vincula la forma a los datos del último conjunto de registros de datos que se ha agregado a la colección y se comprueba que el vínculo se haya establecido correctamente. En caso afirmativo, se obtienen los identificadores de fila de todas las filas de ShapeSheet vinculadas a datos y se imprimen los identificadores de las filas en la ventana Inmediato.

Public Sub GetCustomPropertiesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim alngIndices() As Long 
    Dim intArrayIndex as Integer 
            
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    If boolIsLinked Then 
         
        vsoShape.GetCustomPropertiesLinkedToData vsoDataRecordset.ID, alngIndices 
        For intArrayIndex = LBound(alngIndices) To UBound(alngIndices) 
             Debug.Print alngIndices(intArrayIndex) 
        Next 
     
    Else 
     
        Debug.Print "Not linked." 
         
    End If 
 
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.