Shape.Drop-Methode (Visio)

Erstellt ein oder mehrere neue Shape-Objekte , indem ein Objekt auf einem empfangenden Objekt wie einem Master, einem Zeichenblatt, einer Form oder einer Gruppe abgelegt wird.

Syntax

Ausdruck. Drop (ObjectToDrop, xPos, yPos)

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ObjectToDrop	Erforderlich	[UNBEKANNT]	Das abzulegende Objekt oder die abzulegende Auswahl. Üblicherweise ist dies zwar ein Visio-Objekt wie ein Master-, Shape- oder Selection-Objekt, es kann aber auch ein OLE-Objekt sein, das eine IDataObject-Schnittstelle bereitstellt.
xPos	Erforderlich	Double	Die X-Koordinate, bei der der Mittelpunkt oder DrehbezX der Breite des Shapes platziert werden soll.
yPos	Erforderlich	Double	Die Y-Koordinate, bei der der Mittelpunkt oder DrehbezY der Höhe des Shapes platziert werden soll.

Rückgabewert

Form

Bemerkungen

Das Verwenden der Drop-Methode ähnelt dem Verschieben eines Shapes mit der Maus. Das gelöschte Objekt ( ObjectToDrop) kann ein Master oder eine Form auf dem Zeichenblatt sein.

Wenden Sie die Drop-Methode auf ein Shape-Objekt an, um ein Shape einer Gruppe oder einem Zeichenblatt hinzuzufügen. Der Mittelpunkt des Felds für Breite/Höhe des Shapes wird bei den angegebenen Koordinaten positioniert, und ein Shape-Objekt, das das erstellte Shape darstellt, wird zurückgegeben. Stellen Sie beim Anwenden dieser Methode auf ein Shape-Objekt sicher, dass das Shape-Objekt eine Gruppe darstellt.

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

Beispiel

Mit dem folgenden Beispiel wird gezeigt, wie die Drop-Methode zum Ablegen von Shapes auf Page- und Shape-Objekten verwendet wird.

 
Public Sub Drop_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 Dim vsoGroupShape As Visio.Shape 
 Dim vsoSubShape As Visio.Shape 
 Dim vsoSelection As Visio.Selection 
 
 Set vsoShape1 = ActivePage.DrawRectangle(1, 2, 2, 1) 
 Set vsoShape2 = ActivePage.DrawRectangle(1, 4, 2, 3) 
 
 'Drop a shape on the page. 
 Set vsoShape3 = ActivePage.Drop(vsoShape1, 3.5, 3.5) 
 
 'Make sure only one shape is selected to start. 
 Set vsoSelection = ActiveWindow.Selection 
 vsoSelection.Select vsoShape1, visDeselectAll + visSelect 
 vsoSelection.Select vsoShape2, visSelect 
 
 'Create a group shape. 
 Set vsoGroupShape = vsoSelection.Group 
 
 'Drop a shape on the group shape to create a new subshape. 
 Set vsoSubShape = vsoGroupShape.Drop(vsoShape3, 1, 2) 
 
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.