Grafikten seri sildirmek

Katılım
7 Mayıs 2005
Mesajlar
35
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
 
Katılım
7 Mayıs 2005
Mesajlar
35
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Tam anlamadım ama, aşağıdaki işinize yarar mı ?

Kod:
    ActiveSheet.ChartObjects(1).Activate
    MsgBox ActiveChart.SeriesCollection.Count
 
Katılım
7 Mayıs 2005
Mesajlar
35
Sn Raider,
Çok teşekkür ederim. Ã?ncekinde olmamıştı ama şimdi oldu. Güzel de oldu.
Size de güzellikler dilerim...
 
Üst