Shape.DrawQuarterArc Method (Visio)
Creates a new shape whose path consists of an elliptical arc defined by the two points and the flag passed in as arguments.
Version Information
Version Added: Visio 2003
Syntax
expression .DrawQuarterArc(xBegin, yBegin, xEnd, yEnd, SweepFlag)
expression A variable that represents a Shape 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