Grafik güncellemelerini hızlandırmak Hk.

[esmakaraman]

Merhaba Hocalarım,

Aşağıdaki makro ile toplam 66 Grafiğin visible ile görünür veya görünmez yapıyorum ama çok yavaş çalışıyor yaklaşık 5 dk.'da güncelliyor.Ben aşağıdaki kodların hangisini değiştirirsem daha hızlı güncelleme yaparım.Yardımcı olurmusunuz?




Set ktp1 = ThisWorkbook
Set s2 = ktp1.Sheets("Summary")
For K = 292 To 325
For l = 235 To 268
If s2.ToggleButton1.Value = True Then
ActiveSheet.ChartObjects("grafik " & l).Visible = False
ActiveSheet.ChartObjects("grafik " & K).Visible = True
Else
ActiveSheet.ChartObjects("grafik " & l).Visible = True
ActiveSheet.ChartObjects("grafik " & K).Visible = False

End If
Next
Next

 

[tamer42]

Merhaba Hocalarım,

Aşağıdaki makro ile toplam 66 Grafiğin visible ile görünür veya görünmez yapıyorum ama çok yavaş çalışıyor yaklaşık 5 dk.'da güncelliyor.Ben aşağıdaki kodların hangisini değiştirirsem daha hızlı güncelleme yaparım.Yardımcı olurmusunuz?

Next

Merhaba,

Siz bir dosyada 66 grafiği hangi amaçla kullanıyorsunuz? Bu kadar grafik anlatılmak istenilenleri zorlaştırmıyor mu?

Bir dosyada 66 grafik zaten dosyada çalışmayı zorlaştırır.

Burada öncelikle veri ve grafik boyutlarına bakmak gerekir.

iyi çalışmalar.