I finally found a solution:
worksheets = Excel.sheets;
numSheets = worksheets.Count;
for s = 1 : numSheets % Delete all shapes in Excel
myshapes = worksheets.Item(s).Shapes;
for j = myshapes.Count:-1:1
myshapes.Item(j).Delete
end
end