Compartilhar via

Shape.GetCustomPropertyLinkedColumn method (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 devolve um objeto Forma .

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 se certificar de que o item de dados da forma (linha de propriedade personalizada) estava realmente ligado à 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 esta macro, adicione pelo menos um conjunto de registos 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.

  • Last updated on