Page.DrawQuarterArc method (Visio)
Creates a shape whose path consists of an elliptical arc defined by the two points and the flag passed in as arguments.
Syntax
expression. DrawQuarterArc( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _SweepFlag_ )
expression A variable that represents a Page object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| xBegin | Required | Double | The x-coordinate of the begin point of the arc. |
| yBegin | Required | Double | The y-coordinate of the begin point of the arc. |
| xEnd | Required | Double | The x-coordinate of the endpoint of the arc. |
| yEnd | Required | Double | The y-coordinate of the endpoint of the arc. |
| SweepFlag | Required | VisArcSweepFlags | The type of arc, concave or convex. |
Return value
Shape
Remarks
The begin and endpoints define the bounding rectangle of the arc, and the _SweepFlag_argument determines which of the two possible arcs within the bounding rectangle is drawn. The bounding rectangle is always aligned to the page coordinate system; that is, the x -axis of the ellipse is parallel to the x -axis of the page.
The following possible values for the SweepFlag argument are declared in VisArcSweepFlags in the Visio type library.
| Constant | Value | Description |
|---|---|---|
| visArcSweepFlagConcave | 0 | Concave arc |
| visArcSweepFlagConvex | 1 | Convex arc |
If SweepFlag is visArcSweepFlagConcave, the line joining the center of the ellipse to the arc sweeps through decreasing angles; if it is visArcSweepFlagConvex, it sweeps through increasing angles.
Example
This Microsoft Visual Basic for Applications (VBA) macro shows how to use the DrawQuarterArc method to draw a concave arc on the drawing page.
Public Sub DrawQuarterArc_Example
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawQuarterArc(3, 3, 6, 8, visArcSweepFlagConcave)
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.