This example deletes all free-form shapes from slide one in the active presentation.
With Application.ActivePresentation.Slides(1).Shapes
For s = .Count To 1 Step -1
With .Item(s)
If .Type = msoFreeform Then .Delete
End With
Next
End With