Shape.GetLinkedDataRecordsetIDs-Methode (Visio)

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

Hinweis

Dieses Visio-Objekt oder dieses Visio-Mitglied ist nur für lizenzierte Benutzer von Visio Professional 2013 verfügbar.

Syntax

Ausdruck. GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetIDs()	Erforderlich	Long	Ausgabeparameter. Ein Array mit IDs von Datenrecordsets, die mit dem Shape verknüpfte Datenzeilen enthalten.

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 VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die GetLinkedDataRecordsetIDs-Methode verwendet wird, um die IDs aller Datenrecordsets abzurufen, die mit dem Shape verknüpfte Datenzeilen enthalten.

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

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.