ShapeRange.DeleteItem

Sub DeleteItem(Index As Long)

The DeleteItem method removes the specified shape from a ShapeRange object and deletes it from the document.


Parameters	Description
Index	Specifies the shape by its index number

The following code 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