Shape.Delete Method (PowerPoint)
Deletes the specified Shape object.
expression A variable that represents a Shape object.
This example deletes all freeform shapes from slide one in the active presentation.
With Application.ActivePresentation.Slides(1).Shapes For intShape = .Count To 1 Step -1 With .Item(intShape) If .Type = msoFreeform Then .Delete End With Next End With