Shape.GetLinkedDataRecordsetIDs, méthode (Visio)

Renvoie les ID de tous les jeux d'enregistrements de données qui contiennent les lignes de données qui sont liées à la forme.

Syntaxe

expression. GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

expression Expression qui renvoie un objet Shape .

Paramètres

Valeur renvoyée

Aucune

Remarques

Pour le paramètre IDJeuEnregistrementsDonnées(), transmettez un tableau vide et sans dimension de type Long. La méthode le remplit avec les ID des jeux d'enregistrements de données contenant les lignes de données liées à la forme.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la méthode GetLinkedDataRecordsetIDs pour obtenir les ID de tous les jeux d’enregistrements de données qui contiennent des lignes de données liées à la forme.

Avant d’exécuter cette macro, ajoutez au moins deux jeux d’enregistrements de données à la collection DataRecordsets du document. La macro dépose une forme sur la page, lie la forme aux données des deux jeux d’enregistrements de données les plus récemment ajoutés à la collection, puis imprime les ID des jeux d’enregistrements de données liés retournés par la méthode GetLinkedDataRecordsetIDs dans la fenêtre Exécution.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.