Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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_ )
expression 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.