Delete Method Example

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