Método Shape.GetCustomPropertiesLinkedToData (Visio)

Obtém as identificações das linhas de itens de dados da forma (propriedades personalizadas) na seção Shape Data da planilha ShapeSheet da forma vinculadas ao conjunto de registros de dados especificado.

Observação

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

Sintaxe

expression. GetCustomPropertiesLinkedToData( _DataRecordsetID_ , _CustomPropertyIndices()_ )

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 ID do conjunto de registros dos dados, contendo os dados aos quais a forma está vinculada.
CustomPropertyIndices()	Obrigatório	Long	Parâmetro externo. Uma matriz vazia e sem dimensões que o método preenche com as IDs de linha das linhas shape-data-item (propriedade personalizada) no ShapeSheet da forma que estão vinculadas a colunas de dados no conjunto de registros de dados.

Valor de retorno

Nada

Comentários

Saber como as formas são vinculadas aos dados poderá ajudar a evitar conflitos e vínculos desfeitos quando você atualizar os dados em um ou mais conjuntos de registros de dados.

Observação

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

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar o método GetCustomPropertiesLinkedToData para obter as IDs das linhas shape-data-item (propriedade personalizada) vinculadas a uma coluna de dados em um conjunto de registros de dados.

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 obterá as identificações de todas as linhas do ShapeSheet vinculadas aos dados e imprimirá essas identificações na janela Immediate.

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

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.