Page.DrawQuarterArc Method (Visio)
 Important This document may not represent best practices for current development, links to downloads and other resources may no longer be valid. Current recommended version can be found here. ArchiveDisclaimer

# Page.DrawQuarterArc Method (Visio)

Office 2010

Creates a 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 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.

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
```
Show: