Page. DrawRectangle-Methode (Visio)Page.DrawRectangle method (Visio)

Fügt der Shapes -Auflistung eines Zeichenblatts, eines Masters oder einer Gruppe ein Rechteck hinzu.Adds a rectangle to the Shapes collection of a page, master, or group.

SyntaxSyntax

Ausdruck.expression. DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )

Ausdruck Eine Variable, die ein Page -Objekt darstellt.expression A variable that represents a Page object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
x1x1 ErforderlichRequired DoubleDouble Die x-Koordinate einer Ecke des Felds für Breite/Höhe des Rechtecks.The x-coordinate of one corner of the rectangle's width-height box.
Y1y1 ErforderlichRequired DoubleDouble Die y-Koordinate einer Ecke des Felds für Breite/Höhe des Rechtecks.The y-coordinate of one corner of the rectangle's width-height box.
x2x2 ErforderlichRequired DoubleDouble Die x-Koordinate der anderen Ecke des Felds für Breite/Höhe des Rechtecks.The x-coordinate of the other corner of the rectangle's width-height box.
Y2y2 ErforderlichRequired DoubleDouble Die y-Koordinate der anderen Ecke des Felds für Breite/Höhe des Rechtecks.The y-coordinate of the other corner of the rectangle's width-height box.

RückgabewertReturn value

FormShape

BemerkungenRemarks

Die Verwendung der DrawRectangle -Methode entspricht der Verwendung des Rechteck -Tools in der Anwendung.Using the DrawRectangle method is equivalent to using the Rectangle tool in the application. Die Argumente befinden sich in internen Zeichnungseinheiten in Bezug auf den Koordinatenbereich der Seite, des Masters oder der Gruppe, in der das Rechteck eingefügt wird.The arguments are in internal drawing units with respect to the coordinate space of the page, master, or group where the rectangle is being placed.

BeispielExample

Mit dem folgenden Beispiel wird gezeigt, wie ein Rechteck-Shape auf dem aktiven Zeichenblatt gezeichnet wird.The following example shows how to draw a rectangle on the active page.

 
Public Sub DrawRectangle_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1) 
 
End Sub

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.