Master.DrawQuarterArc-Methode (Visio)
Erstellt ein 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 Master-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.