API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.DeleteItem method
Removes the specified shape from the shape range and deletes it from the document
Syntax:
Sub DeleteItem(ByVal Index As Long)
Parameters:
Name Type Description
Index
Long
Remarks:
The DeleteItem method removes a specified shape from a shape range and deletes it from the document.
Examples:
The following VBA example deletes the first shape from the shape range.
Sub Test()
Dim s As Shape
Dim sr As ShapeRange
Set s = ActiveLayer.CreateRectangle(2, 2, 4, 4)
s.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0)
Set s = ActiveLayer.CreateRectangle2(1, 4, 5, 5)
s.Fill.ApplyUniformFill CreateRGBColor(0, 255, 0)
Set s = ActiveLayer.CreatePolygon(1, 2, 3, 4, 6)
Set sr = ActivePage.FindShapes(, cdrRectangleShape)
sr.DeleteItem 1 
End Sub