Método Selection.BreakLinkToData (Visio)

Quebra os vínculos entre todas as formas da seleção e as linhas de dados do 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. BreakLinkToData( _DataRecordsetID_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
DataRecordsetID	Obrigatório	Long	A identificação do conjunto de registros de dados contendo as linhas de dados cujos vínculos devem ser quebrados.

Valor de retorno

Nada

Comentários

Se o Microsoft Visio não conseguir quebrar o vínculo entre uma forma da seleção e a linha de dados, ou se o vínculo não existir, ele ignorará essa forma e passará para a próxima forma da seleção. Depois de executar o método, para determinar se algumshapes na seleção ainda está vinculado a uma linha de dados, chame o método Shape.GetLinkedDataRow em cada forma na seleção. Se o método GetLinkedDataRow falhar para qualquer forma, ele indicará que a forma não está mais vinculada à linha de dados ou nunca foi vinculada à linha de dados.

Observe que a quebra de vínculos entre formas e dados não remove os dados das formas (chamados de propriedades personalizadas em algumas versões anteriores do Visio) nem os gráficos de dados associados às formas.

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar o método BreakLinkToData para quebrar todos os links entre as formas em uma seleção e linhas de dados em um conjunto de registros de dados.

Antes de executar essa macro, coloque várias formas na página, adicione pelo menos um conjunto de registros de dados à coleção DataRecordsets do documento e use qualquer método de vinculação para vincular várias formas a uma ou mais linhas de dados no conjunto de registros de dados que você adicionou mais recentemente à coleção.

Public Sub BreakLinkToData_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 
    Call vsoSelection.BreakLinkToData(vsoDataRecordset.ID) 
     
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.