Método Shape.GetCustomPropertyLinkedColumn (Visio)

Obtém o nome da coluna de dados vinculada à linha de dados da forma (propriedades personalizadas) na planilha ShapeSheet da forma especificada pelo índice de propriedade personalizada.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

expression. GetCustomPropertyLinkedColumn( _DataRecordsetID_ , _CustomPropertyIndex_ )

Expressão Uma expressão que retorna um objeto Shape .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
DataRecordsetID	Obrigatório	Long	A identificação do conjunto de registros de dados que contém a coluna de dados vinculada à propriedade personalizada da forma.
CustomPropertyIndex	Obrigatório	Long	O índice do item de dados da forma (propriedades personalizadas) vinculado à coluna de dados no conjunto de registros de dados.

Valor de retorno

Cadeia de caracteres

Comentários

Se o método falhar, chame o método Shape.IsCustomPropertyLinked para garantir que o item de dados de forma (linha de propriedade personalizada) esteja realmente vinculado à coluna de dados.

Observação

Em algumas versões anteriores do Visio, os dados da forma eram chamados de propriedades personalizadas.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método GetCustomPropertyLinkedColumn para obter o nome da coluna de conjuntos de registros de dados vinculada a um determinado item de dados da forma.

Antes de executar essa macro, adicione pelo menos um conjunto de registros de dados à coleção DataRecordsets do documento. A macro solta uma forma na página, vincula a forma aos dados do conjunto de registros de dados adicionado mais recentemente à coleção e, em seguida, faz um teste para verificar se a vinculação é bem-sucedida. Se ela não apresentar problemas, a macro imprimirá na janela Immediate o nome da coluna de conjuntos de registros de dados vinculada ao item de dados da forma (propriedades personalizadas) especificado.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.