Método Shape.LinkToData (Visio)

Vincula uma forma a uma linha de dados de um conjunto de registros de dados.

Observação

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

Sintaxe

expression. LinkToData( _DataRecordsetID_ , _RowID_ , _AutoApplyDataGraphics_ )

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 de dados que contém os dados a serem vinculados.
Rowid	Obrigatório	Long	A identificação da linha no conjunto de registros de dados contendo o registro de dados específico com o qual você deseja estabelecer um vínculo.
AutoApplyDataGraphics	Opcional	Boolean	Se um gráfico de dados deverá ser aplicado automaticamente às formas vinculadas. Consulte Comentários para obter mais informações.

Valor de retorno

Nada

Comentários

O método Shape.LinkToData funciona de modo bem semelhante ao mesmo método do objeto Selection, Selection.LinkToData, porém ele vincula uma única forma, e não uma seleção de formas, a uma única linha de dados.

Se você passar True para o parâmetro AutoApplyDataGraphics, o Microsoft Visio reaplicará o gráfico de dados existente a uma forma caso ela já tivesse um gráfico de dados aplicado antes da chamada do método. Para uma forma que anteriormente não tinha gráfico de dados, o Visio aplicará o gráfico de dados usado mais recentemente em qualquer outra forma no documento atual.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método LinkToData para vincular uma forma a uma linha de dados.

Antes de executar essa macro, adicione pelo menos um conjunto de registros de dados à coleção DataRecordsets do documento. A macro usa a identificação do conjunto de registros de dados adicionado mais recentemente à coleção. Ele desenha uma forma de retângulo na página e a vincula aos dados na primeira linha do conjunto de registros de dados, ao mesmo tempo em que aplica o gráfico de dados padrão à forma.

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 5, 5) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
 
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.