Document.Drop-Methode (Visio)

Artikel
10/16/2024

Erstellt ein neues Master-Objekt, indem ein Objekt auf ein empfangendes Objekt wie eine Schablone oder ein Dokument oder die Masters- oder MasterShortcuts-Auflistung abgelegt wird.

Syntax

Ausdruck. Drop (ObjectToDrop, xPos, yPos)

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
ObjectToDrop	Erforderlich	[UNBEKANNT]	Das abzulegende Objekt. Ü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	Integer	Die X-Koordinate, bei der der Mittelpunkt oder DrehbezX der Breite des Shapes platziert werden soll.
yPos	Erforderlich	Integer	Die Y-Koordinate, bei der der Mittelpunkt oder DrehbezY der Höhe des Shapes platziert werden soll.

Rückgabewert

Master

Hinweise

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.

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.

Wenden Sie die Drop-Methode auf ein Document-Objekt an, das eine Schablone darstellt (die Schablone muss als Original oder Kopie geöffnet werden und nicht schreibgeschützt), um einen neuen Master in einer Schablone zu erstellen. In diesem Fall werden die Argumente xPos und yPos ignoriert, und die neu erstellte master wird zurückgegeben.

Beispiel

Mit dem folgenden Beispiel wird gezeigt, wie mit der Drop-Methode ein Master erstellt wird, indem ein Shape auf einem Document-Objekt abgelegt wird.

 
Public Sub Drop_Example() 
 
    Dim vsoShape As Visio.Shape  
    Dim vsoMaster As Visio.Master  
 
    Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)  
 
    'Create a master in the document.  
    'The master appears on the document stencil.  
    Set vsoMaster = ActiveDocument.Drop(vsoShape, 0, 0)  
 
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