Application.CreateShapeRange method - Developer Area

C++/CLI
C++
C#
VB
VBA

API Documentation > CorelDRAW > X7.4 > 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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25