Shape.GetLinkedDataRow-Methode (Visio)

Ruft die ID der Datenzeile im angegebenen Datenrecordset ab, das mit dem Shape verknüpft ist.

Hinweis

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

Syntax

Ausdruck. GetLinkedDataRow( _DataRecordsetID_ )

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetID	Erforderlich	Long	Die ID des Datenrecordsets, das die verknüpfte Zeile enthält.

Rückgabewert

Long

Hinweise

Die GetLinkedDataRow-Methode schlägt fehl, wenn das Shape nicht mit einer Datenzeile verknüpft ist.

Beispiel

Das folgende Microsoft Visual Basic for Applications (VBA)-Makro zeigt, wie Sie die GetLinkedDataRow-Methode verwenden, um die ID der Datenzeile im angegebenen mit dem Shape verknüpften Datenrecordset abzurufen.

Fügen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset zur DataRecordsets-Auflistung des Dokuments hinzu. Das Makro legt ein Shape auf dem Zeichenblatt ab, verknüpft das Shape mit einer Datenzeile im Datenrecordset, das der Sammlung zuletzt hinzugefügt wurde, ruft die ID der Zeile ab und druckt dann die ID der Zeile im Direktfenster aus.

Public Sub GetLinkedDataRow_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim lngRowID As Long 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
            
    lngRowID = vsoShape.GetLinkedDataRow(vsoDataRecordset.ID) 
    Debug.Print lngRowID 
         
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.