ShapeRange.Add method - Developer Area

API Documentation > CorelDRAW > 2017 > ShapeRange > IVGShapeRange

ShapeRange.Add method

Adds a shape in a range

Syntax:

Sub Add(ByVal Shape As Shape)

Parameters:

Name	Type	Description
Shape	Shape	Specifies the shape to add

Remarks:

The Add method adds a specified shape to a shape range.

Examples:

The following VBA example creates a registration mark consisting of a circle and two lines, groups the objects, and then moves them to the center of the page.

Sub Test()
  Dim sGroup As Shape
  Dim sr As New ShapeRange
  sr.Add ActiveLayer.CreateEllipse2(0, 0, 0.25)
  sr.Add ActiveLayer.CreateLineSegment(-0.5, 0, 0.5, 0)
  sr.Add ActiveLayer.CreateLineSegment(0, -0.5, 0, 0.5)
  sr.SetOutlineProperties 0.03
  Set sGroup = sr.Group
  sGroup.Move ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 2
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