with Workbook.Sheets[1] do begin if Shapes.Count > 0 then Shapes.Items[1].Delete; end;
with Workbook.Sheets[1] do begin if Shapes.Count > 0 then Shapes[1].Delete; end;