DrawQuarterArc Method

Page.DrawQuarterArc Method (Visio)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Creates a shape whose path consists of an elliptical arc defined by the two points and the flag passed in as arguments.

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

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.

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:
© 2016 Microsoft