Page.Drop-Methode (Visio)

Artikel
04/07/2023

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 Page-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 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)

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.

Freigeben über