let shapes = Application.ActivePresentation.Slides.Item(1).Shapes
for(let i = shapes.Count; i >= 1; i--){
    if(shapes.Item(i).Type == msoFreeform){
        shapes.Item(i).Delete()
    }
}