Método Selection.LinkToData (Visio)

Vincula uma seleção de formas a uma única linha de dados de um conjunto de registros de dados.

Sintaxe

expression. LinkToData( _DataRecordsetID_ , _DataRowID_ , _AutoApplyDataGraphics_ )

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

Parâmetros

Valor de retorno

Nada

Comentários

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

Se o Visio não puder estabelecer um vínculo entre uma forma e a linha de dados, ele ignorará essa forma e passará para a próxima forma na seleção. Depois de executar o método, para determinar se todas as formas na seleção estão realmente vinculadas à linha de dados, chame o método Shape.GetLinkedDataRow em cada forma na seleção. Se esse método falhar para alguma forma, isso indicará que a forma não está vinculada à linha de dados. O Visio geralmente terá êxito em vincular uma linha a uma forma, a menos que a forma já esteja vinculada aos dados e a configuração link-replacement-behavior para o conjunto de registros de dados especifica que o link não deve ser substituído.

Se você passar True para o parâmetro AutoApplyDataGraphics, o Visio reaplicará o gráfico de dados existente às formas que já tinham gráficos de dados aplicados antes da chamada do método. Para as formas que anteriormente não tinham 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 as formas de uma seleção a uma linha de dados.

Antes de executar essa macro, coloque várias formas na página e 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. Ela vincula as formas selecionadas aos dados da primeira linha do conjunto de registros de dados.

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoSelection As Visio.Selection 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
    vsoSelection.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.