ShapeRange.AddRange method - Developer Area

API Documentation > CorelDRAW > 2022-v24.1 > ShapeRange > IVGShapeRange

ShapeRange.AddRange method

Adds a shape range into a range

Syntax:

Sub AddRange(ByVal ShapeRange As ShapeRange)

Parameters:

Name	Type	Description
ShapeRange	ShapeRange	Specifies the shape range to add

Remarks:

The AddRange method adds a specified shape range to the current range.

Examples:

The following VBA example finds all the ellipses and rectangles on a page, and it then fills the shapes with a radial fountain fill.

Sub Test()
  Dim sr As ShapeRange
  Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape)
  sr.AddRange ActivePage.FindShapes(Type:=cdrRectangleShape)
  sr.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0), cdrRadialFountainFill
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