In diesem Beispiel wird das erste OLE-Objekt in Sheet1 gelöscht.
Worksheets("sheet1").OLEObjects.Item(1).Delete