Método Shape.GetLinkedDataRecordsetIDs (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 retorna um objeto Shape .

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 macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar o método GetLinkedDataRecordsetIDs para obter as IDs de todos os conjuntos de registros de dados que contêm linhas de dados vinculadas à forma.

Antes de executar essa macro, adicione pelo menos dois conjuntos de registros de dados à coleção DataRecordsets do documento. A macro lança uma forma na página, vincula a forma aos dados nos dois conjuntos de registros de dados adicionados mais recentemente à coleção e, em seguida, imprime as IDs dos conjuntos de registros de dados vinculados retornados pelo método GetLinkedDataRecordsetIDs na janela Imediata.

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.