Shape Property Example

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