Método Shape.GetCustomPropertyLinkedColumn (Visio)

Obtiene el nombre de la columna de datos vinculada a la fila de datos de formas (propiedad personalizada) de la hoja de cálculo ShapeSheet de la forma especificada por el índice de propiedad personalizada.

Nota:

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

Sintaxis

expresión. GetCustomPropertyLinkedColumn( _DataRecordsetID_ , _CustomPropertyIndex_ )

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 la columna de datos vinculada a la propiedad personalizada de la forma.
CustomPropertyIndex	Necesario	Long	Índice del elemento de datos de formas (propiedad personalizada) vinculado a la columna de datos del conjunto de registros de datos.

Valor devuelto

Cadena

Comentarios

Si se produce un error en el método, llame al método Shape.IsCustomPropertyLinked para asegurarse de que el elemento de datos de la forma (fila de propiedad personalizada) estaba realmente vinculado a la columna de datos.

Nota:

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

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo utilizar el método GetCustomPropertyLinkedColumn para obtener el nombre de la columna del conjunto de registros de datos vinculada a un elemento de datos de formas concreto.

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, imprime el nombre de la columna del conjunto de registros de datos vinculada al elemento de datos de formas (propiedad personalizada) en la ventana Inmediato.

Public Sub GetCustomPropertyLinkedColumn_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim lngIndex As Long 
    Dim strColumnName As String 
         
    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 
     
        strColumnName = vsoShape.GetCustomPropertyLinkedColumn(vsoDataRecordset.ID, 1) 
        Debug.Print "Linked column name is", strColumnName 
     
    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.