Powerpoint VisualBasic Script

Sub del()
    ActivePresentation.Slides(2).Shapes(1).Delete
End Sub