API Documentation > CorelDRAW > 2025-v26 > Application > IVGApplication
Application.CreateShapeRange method
Creates an instance of ShapeRange object
Syntax:
Function CreateShapeRange() As ShapeRange
Remarks:
The CreateShapeRange creates an empty ShapeRange object.
Examples:
The following VBA example creates six red ellipses and then rotates them.
Sub Test()
Dim n As Long
Dim sr As ShapeRange
Dim s As Shape
Set sr = CreateShapeRange
Set s = ActiveLayer.CreateEllipse2(0, 0, 0.5)
s.RotationCenterX = 1
s.RotationCenterY = 1
For n = 1 To 5
  sr.Add s.Duplicate
  s.Rotate 60
Next n
sr.Add s
sr.ApplyUniformFill CreateRGBColor(255, 0, 0) 
End Sub