ShapeRange.RemoveAll method - Developer Area

API Documentation > CorelDRAW > X7.4 > ShapeRange > IVGShapeRange

ShapeRange.RemoveAll method

Removes All shapes form the range

Syntax:

Sub RemoveAll()

Remarks:

The RemoveAll method removes all shapes from a specified shape range.

The specified shapes are removed only from the specified shape range and not from any other ranges of which they may be a part.

The specified shapes are not deleted from the document.

Examples:

The following VBA example creates ten circles and randomly places them on a page. It fills them with red and groups them. It then creates 10 more rectangles, fills them with yellow, and groups them.

Sub Test()
  Dim sr As New ShapeRange
  Dim n As Long
  For n = 1 To 10
    sr.Add ActiveLayer.CreateEllipse2(Rnd() * 8, Rnd() * 11, 0.5)
  Next n
  sr.ApplyUniformFill CreateRGBColor(255, 0, 0)
  sr.Group
  sr.RemoveAll
  For n = 1 To 10
    sr.Add ActiveLayer.CreateRectangle2(Rnd() * 8, Rnd() * 11, 1, 1)
  Next n
  sr.ApplyUniformFill CreateRGBColor(255, 255, 0)
  sr.Group
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