Очистка графика от данных

[julius]

Добрый день

Есть график с произвольным количеством кривых на нем. Перед началом обработки график нужно очистить от всех данных, чтобы потом внести новые.
Код имеет следующий вид

ActiveSheet.ChartObjects("Диаграмма 1").Activate

If ActiveChart.SeriesCollection.Count > 0 Then
For i = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(i).Del ete
Next i
End If

Но он срабатывает только если на диаграмме одна кривая, если же больше, то выдает ошибку "Недопустимый параметр" в строке с delete.

[kuklp]

А попробуйте:

ActiveChart.SeriesCollection(1).Delete

Вообще при удалении лучше идти от большего к меньшему с шагом =1.
И пользуйтесь тегами оформления кода.

[julius]

Спасибо большое, помогло!