Shape.LinkToData-Methode (Visio)

Artikel
04/07/2023

Verknüpft ein Shape mit einer Datenzeile in einem Datenrecordset.

Hinweis

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

Syntax

Ausdruck. LinkToData( _DataRecordsetID_ , _RowID_ , _AutoApplyDataGraphics_ )

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DataRecordsetID	Erforderlich	Long	Die ID des Datenrecordsets, das die Daten enthält, mit denen eine Verknüpfung hergestellt werden soll.
Rowid	Erforderlich	Long	Die ID der Zeile im Datenrecordset, die den zu verknüpfenden Datensatz enthält.
AutoApplyDataGraphics	Optional	Boolescher Wert	Gibt an, ob eine Datengrafik automatisch auf die verknüpften Shapes angewendet werden soll. Weitere Informationen finden Sie in den Anmerkungen.

Rückgabewert

Nichts

Bemerkungen

Die Shape.LinkToData-Methode funktioniert ähnlich wie die entsprechende Methode des Selection-Objekts, Selection.LinkToData. Allerdings wird anstelle einer Auswahl von Shapes ein einzelnes Shape mit einer einzelnen Datenzeile verknüpft.

Wenn Sie True als AutoApplyDataGraphics-Parameter übergeben, wendet Microsoft Visio die vorhandene Datengrafik erneut auf ein Shape an, wenn bereits vor dem Aufrufen der Methode eine Datengrafik auf dieses Shape angewendet worden war. Auf ein Shape ohne Datengrafik wendet Visio die Datengrafik an, die zuletzt auf ein anderes Shape im aktuellen Dokument angewendet wurde.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der LinkToData-Methode das Shape mit einer Datenzeile verknüpfen.

Fügen Sie vor dem Ausführen dieses Makros mindestens ein Datenrecordset zur DataRecordsets-Auflistung des Dokuments hinzu. Das Makro verwendet die ID des Datenrecordsets, das der Auflistung zuletzt hinzugefügt wurde. Es zeichnet ein Rechteck-Shape auf dem Zeichenblatt und verknüpft es mit den Daten in der ersten Zeile des Datenrecordsets, während die Standarddatengrafik auf das Shape angewendet wird.

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 5, 5) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
 
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.