Page.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.
Ausdruck. Drop (ObjectToDrop, xPos, yPos)
Ausdruck Eine Variable, die ein Page-Objekt darstellt.
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. |
Form
Das Verwenden der Drop-Methode ähnelt dem Verschieben eines Shapes mit der Maus. Das abgelegte Objekt (ObjectToDrop) kann ein Master oder ein Shape auf dem Zeichenblatt sein.
Um einer Gruppe oder einem Zeichenblatt ein Shape hinzuzufügen, wenden Sie die Drop-Methode auf ein Shape - bzw. Page-Objekt an. 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.
Wenn Ihre Visual Studio-Projektmappe die Microsoft.Office.Interop.Visio-Referenz enthält, wird diese Methode den folgenden Typen zugeordnet:
- Microsoft.Office.Interop.Visio.IVPage.Drop(object, double, double)
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
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.