VBA kodu değişikliği

[ant1905]

Arkadaşlar herkese selamlar,

Çalışma kitabımda 28 adet çalışma sayfam var. her çalışma sayfasında 12 adet grafiğim var. ActiveX denetimlerinden komut düğmesi ekledim ve kod kısmına daha evvel kaydettiğim kodu ekledim ve şu şekilde oluştu:

Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection(1).Trendlines(1).Select
With Selection
.Type = xlPolynomial
.Order = 2
End With
Range("S2").Select
End Sub


şimdi sorun şu ki ben burada oluşturduğum butona bastığım zaman eğilim çizgisinin sadece bu grafikte değil, çalışma sayfasındaki diğer tüm grafiklerde de değişmesini istiyorum. Böylece herbirine ayrı ayrı düğme yaratıp kodlarını değiştirmek zorunda kalmayacağım. Bu amaca ulaşmak için

ActiveSheet.ChartObjects("Grafik 1").Activate satırında nasıl bir değişiklik yapmam gerekir?


Yardımlarını esirgemeyen arkadaşlara şimdiden çok teşekkür ederim

 

[Merhum İdris SERDAR]

.

Kodu aşağıdaki şekilde yazın.

Private Sub CommandButton1_Click()

For i = 1 To 4 ' Kaç  tane grafik varsa ona göe 4'ü değiştirin.

ActiveSheet.ChartObjects.Select
    ActiveWorkbook.ActiveChart.SeriesCollection(i).Trendlines.Add
    ActiveChart.SeriesCollection(i).Trendlines(1).Select
    With Selection
      .Type = xlPolynomial
      .Order = 2
    End With
Next i

Range("S2").Select

End Sub

.

 

[ant1905]

Sayın Yurttas foruma şimdi geldim...

Kodu ekledim

bir hata mesajı verdi debug dediğimde

ActiveWorkbook.ActiveChart.SeriesCollection(i).Trendlines.Add

satırını sarı ile işaretlemiş oluyor.
Tavsiyeniz var mıdır?

 

[Merhum İdris SERDAR]

.

Bir örnek dosya ekleyin deneyelim.

.

 

[ant1905]

görüntü de gözüktüğü üzere ben chartları oluşturduğumda varsayılan bir hareket olarak her oluşturduğum grafiğe eğilim çizgileri ekliyorum zaten. Amaç yukarıdaki düğmelere bastığımda bütün grafiklerin eğilim çizgilerinin düğmenin ifade ettiği eğilim çizgisi şekline geçmesidir.

 

[ant1905]

Örnek dosya oluşturdum. Ektedir