Page.DropLinked-Methode (Visio)

Artikel
04/07/2023

Gibt ein neues Shape auf dem Zeichenblatt zurück. Dieses Shape ist mit Daten in einem Datenrecordset verknüpft.

Hinweis

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

Syntax

Ausdruck. DropLinked( _ObjectToDrop_ , _x_ , _y_ , _DataRecordsetID_ , _DataRowID_ , _ApplyDataGraphicAfterLink_ )

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ObjectToDrop	Erforderlich	[UNBEKANNT]	Das abzulegende Objekt. Dabei handelt es sich in der Regel um ein Visio-Objekt, z. B. ein Master-, Shape- oder Selection-Objekt . Dabei kann es sich um ein beliebiges OLE-Objekt handeln, das eine IDataObject-Schnittstelle bereitstellt.
x	Erforderlich	Double	Die X-Koordinate, bei der der Mittelpunkt oder DrehbezX der Breite des Shapes platziert werden soll.
y	Erforderlich	Double	Die Y-Koordinate, bei der der Mittelpunkt oder DrehbezY der Höhe des Shapes platziert werden soll.
DataRecordsetID	Erforderlich	Long	Die ID des Datenrecordsets, das die zu verknüpfenden Daten enthält.
DataRowID	Erforderlich	Long	Die ID der Datenzeile, die die zu verknüpfenden Daten enthält.
ApplyDataGraphicAfterLink	Erforderlich	Boolean	Gibt an, ob die aktuelle Datengrafik auf das verknüpfte Shape angewendet werden soll. Standardmäßig wird eine Datengrafik nicht angewendet. Weitere Informationen finden Sie in den Anmerkungen.

Rückgabewert

Form

Bemerkungen

Wenn Sie Shapes erstellen möchten, die bereits mit Daten auf einem Zeichenblatt verknüpft sind, das entweder keine Shapes enthält oder andere Shapes enthält als die, die Sie verknüpfen möchten, können Sie die Methoden Page.DropLinked und Page.DropManyLinkedU verwenden, um ein oder mehrere zusätzliche Shapes zu erstellen, die bereits mit Daten verknüpft sind. Diese Methoden ähneln den vorhandenen Page.Drop - und Page.DropManyU-Methoden , da sie zusätzliche Shapes an einer angegebenen Position auf dem Zeichenblatt erstellen. Darüber hinaus erstellen sie Verknüpfungen zwischen den neuen Shapes und angegebenen Datenzeilen in einem angegebenen Datenrecordset.

Wenn das als ObjectToDrop-Parameter übergebene Objekt ein Shape ist, wird der Mittelpunkt des Felds für Breite/Höhe des resultierenden Shapes bei den angegebenen Koordinaten positioniert, und es wird ein Shape-Objekt zurückgegeben, das das erstellte Shape darstellt.

Wenn es sich bei ObjectToDrop um ein Master-Objekt handelt, wird der Drehbezugspunkt des Masters bei den angegebenen Koordinaten positioniert. Der Drehbezugspunkt eines Masters ist häufig der Mittelpunkt der Drehung, aber nicht notwendigerweise.

Wenn Sie für den optionalen ApplyDataGraphicsAfterLink-Parameter den Wert True übergeben, 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 mit der DropLinked-Methode ein Shape auf dem aktiven Zeichenblatt erstellen, das um Seitenkoordinaten (2, 2) zentriert ist und mit einer Datenzeile in dem Datenrecordset verknüpft ist, das dem aktiven Dokument zuletzt hinzugefügt wurde.

Die an die DropLinked-Methode übergebene Form ist ein einfaches Rechteck aus der Schablone "Basic Shapes (US units)" . Bevor Sie dieses Makro ausführen, verwenden Sie die DataRecordsets.Add-Methode oder eine andere Methode, um der DataRecordsets-Auflistung mindestens ein Datenrecordset hinzuzufügen, und stellen Sie sicher, dass die Schablone Grundlegende Shapes (US-Einheiten) im Visio-Zeichnungsfenster geöffnet ist. In diesem Beispiel wird für die ID der Datenzeile der Wert 1 festgelegt; vergewissern Sie sich, dass eine Zeile mit der ID vorhanden ist oder ändern Sie den ID-Wert im Code entsprechend, bevor Sie den Code ausführen.

Public Sub DropLinked_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim vsoMaster As Visio.Master 
    Dim dblX As Double 
    Dim dblY As Double  
    Dim lngDataRowID As Long 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
 
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    Set vsoMaster = Visio.Documents("Basic_U.VSS").Masters("Rectangle") 
    dblX = 2 
    dblY = 2 
    lngDataRowID = 1 
 
    Set vsoShape = ActivePage.DropLinked(vsoMaster, dblX, dblY, vsoDataRecordset.ID, lngDataRowID, 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.

Freigeben über