Shape.EqualDivide method - Developer Area

API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape

Shape.EqualDivide method

Divides the object into equal divisions

Syntax:

Function EqualDivide(Optional ByVal Divisions As Long = 2, Optional ByVal Gap As Double = -1, Optional ByVal Group As Boolean = False, Optional ByVal Combine As Boolean = True, Optional ByVal DeleteSource As Boolean = True) As ShapeRange

Parameters:

Name	Type	Description
Divisions	Long	Specifies the desired number of equal divisions for the shape. Values range from 2 to 360.
Gap	Double	Specifies, in document units, the length of the gap between divisions. A value of 0 is permitted.
Group	Boolean	Specifies whether to group the divisions.
Combine	Boolean	Specifies whether to combine the divisions into a single compound path. A value of False leaves the divisions as separate.
DeleteSource	Boolean	Specifies whether to delete the original shape. A value of False retains the original shape.

Remarks:

The EqualDivide method divides a shape into divisions of equal length, separated by gaps of equal size (including zero). The divisions can be combined into a single compound-path object, or they can be left as individual shapes that can be grouped.

Examples:

The following VBA example creates an ellipse and divides it into seven equal segments that are separated by a gap. The segments are combined into a single shape, and the source object is deleted by default.

Sub Test()
Dim shpEllipse As Shape
Dim shrRange As ShapeRange
Set shpEllipse = ActiveLayer.CreateEllipse2(0,0,6,4)
Set shrRange = shpEllipse.EqualDivide(7, 0.015, False, True) 
End Sub