R
Renaud
I'm answering to myself. I finally found. Here is the solution:
Code:
--------------------
While Charts("Chart1").SeriesCollection.Count > 0
Charts("Chart1").SeriesCollection.Item(1).Delete
Wend
--------------------
But if you've better ideas, i'm taker.
Renaud
Code:
--------------------
While Charts("Chart1").SeriesCollection.Count > 0
Charts("Chart1").SeriesCollection.Item(1).Delete
Wend
--------------------
But if you've better ideas, i'm taker.
Renaud