Shape.GetLinkedDataRecordetIDs-Methode (Visio)

Ruft die IDs aller Datenrecordsets ab, die mit dem Shape verknüpfte Datenzeilen enthalten.

Syntax

Ausdruck. GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

Ausdruck Ein Ausdruck, der ein Shape-Objekt zurückgibt.

Parameter

Rückgabewert

Nichts

Bemerkungen

Übergeben Sie für den DataRecordsetIDs()-Parameter ein leeres Array ohne Dimensionen vom Typ Long, das von der Methode mit den IDs der Datenrecordsets aufgefüllt wird, die mit dem Shape verknüpfte Datenzeilen enthalten.

Beispiel

Das folgende Microsoft Visual Basic for Applications (VBA)-Makro zeigt, wie Sie die GetLinkedDataRecordsetIDs-Methode verwenden, um die IDs aller Datenrecordsets abzurufen, die Datenzeilen enthalten, die mit dem Shape verknüpft sind.

Fügen Sie vor dem Ausführen dieses Makros mindestens zwei Datenrecordsets zur DataRecordsets-Auflistung des Dokuments hinzu. Das Makro legt ein Shape auf dem Zeichenblatt ab, verknüpft das Shape mit den Daten in den beiden Datenrecordsets, die der Sammlung zuletzt hinzugefügt wurden, und druckt dann die IDs der verknüpften Datenrecordsets, die von der GetLinkedDataRecordetIDs-Methode im Direktfenster zurückgegeben wurden.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.