Shape.DrawQuarterArc-Methode (Visio)

Erstellt ein neues Shape, dessen Pfad aus einem elliptischen Bogen besteht, der durch zwei Punkte und das als Argumente übergebene Kennzeichen definiert wird.

Syntax

Ausdruck. DrawQuarterArc( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _SweepFlag_ )

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
xBegin Erforderlich Double Die X-Koordinate des Anfangspunkts des Bogens.
yBegin Erforderlich Double Die Y-Koordinate des Anfangspunkts des Bogens.
xEnd Erforderlich Double Die X-Koordinate des Endpunkts des Bogens.
yEnd Erforderlich Double Die Y-Koordinate des Endpunkts des Bogens.
SweepFlag Erforderlich VisArcSweepFlags Der Bogentyp, konkav oder konvex.

Rückgabewert

Form

Bemerkungen

Der Anfang und der Endpunkt definieren das umgebende Rechteck des Bogens, und der _SweepFlag_argument bestimmt, welcher der beiden möglichen Bögen innerhalb des umgebenden Rechtecks gezeichnet wird. Das umgebende Rechteck wird immer am Seitenkoordinatensystem ausgerichtet. Das heißt, die x-Achse der Ellipse ist parallel zur x-Achse der Seite.

Die folgenden möglichen Werte für das SweepFlag-Argument werden in VisArcSweepFlags in der Visio-Typbibliothek deklariert.

Konstante Wert Beschreibung
visArcSweepFlagConcave 0 Konkaver Bogen
visArcSweepFlagConvex 1 Konvexer Bogen

Wenn SweepFlagvisArcSweepFlagConcave ist, durchläuft die Linie, die die Mitte der Ellipse mit dem Bogen verknüpft, durch abnehmende Winkel; Wenn es sich um visArcSweepFlagConvex handelt, durchläuft es die zunehmenden Winkel.

Beispiel

Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie die DrawQuarterArc-Methode zum Zeichnen eines konkaven Bogens auf dem Zeichenblatt verwendet wird.

Public Sub DrawQuarterArc_Example 
 
 Dim vsoShape As Visio.Shape 
 Set vsoShape = ActivePage.DrawQuarterArc(3, 3, 6, 8, visArcSweepFlagConcave) 
 
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.