Butona basıldığında grafiği görüntülemek

[mystery37]

Merhabalar,

Butona basıldığında verilerin grafik halinde görüntülenmesi ve diğer butona basıldığında grafiğin kapanması için bilgi ve yardımlarınıza ihtiyacım var.

Ekte bulunan örnek tabloda birden fazla (örnek de 2 ayrı veri var fakat uygulamada 9 yada 10 farklı veri kullanılacak ) farklı veri bulunduğundan her veri için ayrı ayrı olmak üzere butona basıldığında grafiğin açılması ve diğer butona basıldığında grafiğin kapanması için yardımlarınızı rica ederim.

Saygılarımla

 

[hamitcan]

Not: Önce grafikleri oluşturun.

Sub Grafik1_Gizle()
ActiveSheet.ChartObjects(1).Visible = False
End Sub

Sub Grafik1_Goster()
ActiveSheet.ChartObjects(1).Visible = True
End Sub
Sub Grafik2_Gizle()
ActiveSheet.ChartObjects(2).Visible = False
End Sub

Sub Grafik2_Goster()
ActiveSheet.ChartObjects(2).Visible = True
End Sub

 

[mystery37]

Sayfa içinde tek grafik için oluyor fakat aynı sayfadaki farklı verilerin grafiğini görüntülemek için denediğimde önceki grafik açılıyor.Ayrı ayrı grafiklerin açılıp kapanmasını nasıl yapabilirim.

Yardımlarınız için çok teşekkür ederim.

 

[hamitcan]

Eki inceleyin.

 

[1Al2Ver]

Sayın hamitcan merhaba,

Her bir grafik için tek buton ile (ToggleButton) olması gerekirse, kodlar ne olmalıdır ?

Teşekkür ederim.

 

[hamitcan]

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = "True" Then
    ActiveSheet.ChartObjects(1).Visible = False
    ToggleButton1.Caption = "Göster"
    Else
    ToggleButton1.Caption = "Gizle"
    ActiveSheet.ChartObjects(1).Visible = True
    End If
End Sub

şeklide deneyin.

 

[1Al2Ver]

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = "True" Then
    ActiveSheet.ChartObjects(1).Visible = False
    ToggleButton1.Caption = "Göster"
    Else
    ToggleButton1.Caption = "Gizle"
    ActiveSheet.ChartObjects(1).Visible = True
    End If
End Sub

şeklide deneyin.

Teşekkürler sayın hamitcan,

 

[mystery37]

yarımınız için teşekkür ederim.Tüm butonlaras basıldığğında grafikleri görüntüleyebiliyorum fakat sayfayı kaydedip kapatıyorum ve tekrar açtığımda makro silinmiş oluyor.

Problem neden kaynaklanıyor acaba?

Saygılarımla

 

[hamitcan]

Önce dosyayı indirip bilgisayarınızda bir yere kaydedin, sonra güvenlik ayarlarınızı orta seviyeye getirin ve makroları etkinleştirin. Aşamaları takip ederseniz, bir sıkıntı olmayacaktır.

 

[tetik_23]

Ya arkadaşlar o sorunu bende çok yaşadım ve aynen dediginiz gibi güvenlik ayarınıda yaptım olmadı bi süre sonra araştırı yani kurcalayıp sonuç olarak kaydet sırasında
kaydet ve gönder i seçip dosya türünü seçiyoruz sonrada makro etkin çalışma kitabı olarak kaydediyoruz ve sorun kalmıyor
iyi çalışmalar....