Shape.GetLinkedDataRow-Methode (Visio)

Artikel
04/07/2023

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 VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die GetLinkedDataRow-Methode verwendet wird, um die ID der Datenzeile in dem angegebenen Datenrecordset abzurufen, das mit dem Shape verknüpft ist.

Fügen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset zur DataRecordsets-Auflistung des Dokuments hinzu. Das Makro löscht ein Shape auf das Zeichenblatt, verknüpft das Shape mit einer Datenzeile im Datenrecordset, das der Auflistung zuletzt hinzugefügt wurde, ruft die ID der Zeile ab und gibt 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.

Freigeben über