Grafikten seri sildirmek

[sirenko]

Merhaba,
Bir grafik üstündeki serileri sildirme sorunum var. Biliyorsunuz excel her grafik serisine bir sayı veriyor. Bu sayıyla bendeki uyuşmadığı zaman işlem gerçekleşmiyor. Sorun grafik üstündeki serilerin sayıları sürekli değişiyor (azalıyor ve çoğalıyor). Bunun kolay bir yolu olmalı. Bir bilen varsa çok memnun olacağım.
Aşağıda benim çok iyi olmayan kodu veriyorum.(Cells(603,3))'te benim olmasını beklediğim seri nosu var ama bu herzaman makinanınkiyle bu uyuşmuyor):

Sheets("G").Select
ActiveChart.PlotArea.Select
On Error GoTo 50
For I = Worksheets("E").Cells(603, 3) To 1 Step -1
With Worksheets("E")
ActiveChart.SeriesCollection(I).Delete
End With
Next I

 

[sirenko]

Mesela "seriescollection", "chartobject" gibi olsaydı "For Each" ile sorunu halletmek kolay olurdu. Ya da "seriescollection", "count" özelliği olsa yine sorunu kolayca halledebilirdik.
Bu tipten bir kolaylık olabilir. Bu konuda bilgisi olan var mı?

 

[Haluk]

Tam anlamadım ama, aşağıdaki işinize yarar mı ?

    ActiveSheet.ChartObjects(1).Activate
    MsgBox ActiveChart.SeriesCollection.Count

 

[sirenko]

Count özelliği ile yaptırmaya çalışmıştım ama bir de sizinki gibi deniyeyim

 

[sirenko]

Sn Raider,
Çok teşekkür ederim. Ã?ncekinde olmamıştı ama şimdi oldu. Güzel de oldu.
Size de güzellikler dilerim...