This example gets the shape associated with the first script in the Scripts collection and deletes it from worksheet one in the active workbook.
Dim objScriptShape As Object
Set objScriptShape = _
ActiveWorkbook.Worksheets(1).Scripts(1).Shape
ObjScriptShape.Delete