Table of contents
TOC
Inhaltsverzeichnis reduzieren
Inhaltsverzeichnis erweitern

Shape.DrawLine-Methode (Visio)Shape.DrawLine Method (Visio)

office 365 dev account|Zuletzt aktualisiert: 06.03.2018
|
2 Mitarbeiter

Der Shapes -Auflistung eines Gruppen-Shapes hinzugefügt eine Linie.Adds a line to the Shapes collection of a group shape.

SyntaxSyntax

Ausdruck . DrawLine ( xBegin , yBegin , xEnd , yEnd )expression . DrawLine( xBegin , yBegin , xEnd , yEnd )

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

ParameterParameters

NameNameErforderlich/OptionalRequired/OptionalDatentypData TypeBeschreibungDescription
xBeginxBeginErforderlichRequiredDoubleDoubleDie X-Koordinate des Anfangspunkts der Linie.The x-coordinate of the line's begin point.
yBeginyBeginErforderlichRequiredDoubleDoubleDie Y-Koordinate des Anfangspunkts der Linie.The y-coordinate of the line's begin point.
xEndxEndErforderlichRequiredDoubleDoubleDie X-Koordinate des Endpunkts der Linie.The x-coordinate of the line's endpoint.
yEndyEndErforderlichRequiredDoubleDoubleDie Y-Koordinate des Endpunkts der Linie.The y-coordinate of the line's endpoint.

RückgabewertReturn Value

ShapeShape

HinweiseRemarks

Mithilfe der DrawLine -Methode entspricht der Verwendung des Line -Tools in Microsoft Visio. Die Argumente werden in internen Zeichnungseinheiten in Bezug auf den Koordinatenbereich des Zeichenblatts, Master-Shape oder Gruppe, in dem die Zeile platziert wird.Using the DrawLine method is equivalent to using the Line tool in Microsoft Visio. The arguments are in internal drawing units with respect to the coordinate space of the page, master, or group where the line is being placed.

BeispielExample

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


Public Sub DrawLine_Example() 

 Dim vsoShape As Visio.Shape 

 Set vsoShape = ActivePage.DrawLine(5, 4, 7.5, 1) 

End Sub
© 2018 Microsoft