Shape.DrawOval 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.

Adds an oval (ellipse) to the Shapes collection of a group shape.

expression .DrawOval(x1, y1, x2, y2)

expression A variable that represents a Shape object.

Parameters

Name

Required/Optional

Data Type

Description

x1

Required

Double

The x-coordinate of one corner of the ellipse's width-height box.

y1

Required

Double

The y-coordinate of one corner of the ellipse's width-height box.

x2

Required

Double

The x-coordinate of the other corner of the ellipse's width-height box.

y2

Required

Double

The y-coordinate of the other corner of the ellipse's width-height box.

Return Value

Shape

Using the DrawOval method is equivalent to using the Ellipse tool in the application. The arguments are in internal drawing units with respect to the coordinate space of the page, master, or group where the ellipse is being placed.

The following example shows how to draw an oval (ellipse) on the active page.

 
Public Sub DrawOval_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawOval(1.5, 10.5, 7.5, 6.5) 
 
End Sub 

Show: