Compartilhar via

Shape.GetLinkedDataRecordsetIDs method (Visio)

Obtém as identificações de todos os conjuntos de registros de dados contendo as linhas de dados vinculadas à forma.

Observação

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

Sintaxe

expression. GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

expressão Uma expressão que devolve um objeto Forma .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
DataRecordsetIDs() Obrigatório Long Parâmetro de saída. Uma matriz de identificações dos conjuntos de registros de dados contendo as linhas de dados vinculadas à forma.

Valor de retorno

Nada

Comentários

Para o parâmetro DataRecordsetIDs(), passe uma matriz vazia e sem dimensões do tipo Long, preenchida pelo método com as identificações dos conjuntos de registros de dados contendo as linhas de dados vinculadas à forma.

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como utilizar o método GetLinkedDataRecordsetIDs para obter os IDs de todos os conjuntos de registos de dados que contêm linhas de dados ligadas à forma.

Antes de executar esta macro, adicione pelo menos dois conjuntos de registos de dados à coleção DataRecordsets do documento. A macro coloca uma forma na página, liga a forma aos dados nos dois conjuntos de registos de dados adicionados mais recentemente à coleção e, em seguida, imprime os IDs dos conjuntos de registos de dados ligados devolvidos pelo método GetLinkedDataRecordsetIDs na janela Imediato.

Public Sub GetLinkedDataRecordsetIDs_Example() 
 
    Dim vsoDataRecordset1 As Visio.DataRecordset 
    Dim vsoDataRecordset2 As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim alngDataRecordsetIDs() As Long 
    Dim intArrayIndex As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset1 = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoDataRecordset2 = Visio.ActiveDocument.DataRecordsets(intCount - 1) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset1.ID, 1, True 
    vsoShape.LinkToData vsoDataRecordset2.ID, 2, True 
         
    vsoShape.GetLinkedDataRecordsetIDs alngDataRecordsetIDs 
         
    For intArrayIndex = LBound(alngDataRecordsetIDs) To UBound(alngDataRecordsetIDs) 
        Debug.Print alngDataRecordsetIDs(intArrayIndex) 
    Next 
         
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