Grafik gizleme

[Barons]

Bir excel sayfasında 40 kusur grafiğim var.Bu grafikleri makro ile gizle/göster yapmam mümkünmüdür? Grafiklerin hepsi aynı sayfada bulunuyor.
Eğer hepsini birden gizleyen kod var ise,Bu şekilde grafiğin adını tıkladığımda sadece o grafik görünecek,diğerleri gizlenmiş olacak,yoksa ben tek tek gizle-göster yapıyorum baya zor oluyor.

yardımcı olacak Ustadlara şimdiden teşekkür ederim.
iyi çalışmalar

 

[Merhum İdris SERDAR]

Bir excel sayfasında 40 kusur grafiğim var.Bu grafikleri makro ile gizle/göster yapmam mümkünmüdür? Grafiklerin hepsi aynı sayfada bulunuyor.
Eğer hepsini birden gizleyen kod var ise,Bu şekilde grafiğin adını tıkladığımda sadece o grafik görünecek,diğerleri gizlenmiş olacak,yoksa ben tek tek gizle-göster yapıyorum baya zor oluyor.

yardımcı olacak Ustadlara şimdiden teşekkür ederim.
iyi çalışmalar

.

Nasıl yardım bekliyorsunuz?

Bir örnek dosya ekleyin de yardımcı olacakların dosya yapma zahmetine katlanmasınlar bari...

.

 

[Barons]

Tamam hocam,örnek bir dosya hazırladım.
Teşekkürler

 

[Barons]

Ustadlar yardım

 

[Zeki Gürsoy]

Dim chrts As ChartObjects [COLOR=DarkGreen]', chrt As ChartObject[/COLOR]

Set chrts = Sayfa1.ChartObjects

chrts.Visible = False

chrts("1 Grafik").Visible = True

[COLOR=DarkGreen]'For Each chrt In chrts
'    Debug.Print chrt.Name
'Next[/COLOR]

 

[Barons]

Allah razı olsun hocam...çok önemliydi benim için

 

[assenucler]

Sayın Zeki Gürsoy'un son kodu sonrası, rica etsem dosyanızın son halini ekleyebilir misiniz?

Konu çok ilgimi çekti. Ancak, bilgim yetersiz olduğu için kodu nasıl kullanacağımı bilmiyorum.

Emek ve paylaşım veren dostlara teşekkürler.

 

[Barons]

sub grafiklerigizle()
Dim chrts As ChartObjects ', chrt As ChartObject

Set chrts = Sayfa1.ChartObjects

chrts.Visible = False

chrts("1 Grafik").Visible = True

'For Each chrt In chrts
' Debug.Print chrt.Name
'Next
End sub

 

[Zeki Gürsoy]

Sayın Zeki Gürsoy'un son kodu sonrası, rica etsem dosyanızın son halini ekleyebilir misiniz?

Konu çok ilgimi çekti. Ancak, bilgim yetersiz olduğu için kodu nasıl kullanacağımı bilmiyorum.

Emek ve paylaşım veren dostlara teşekkürler.

Başlıktaki örnek üzerinde hoşunuza gidecek şekil verdim.

 

[Barons]

ooo super olmuş hocam..bende tam bunu soracaktım...bende sayfa üzerinde z1 hücresine 1 yazınca 1nci grafik,2 yazınca 2nci grafik nasıl çıkar diye düşünüyordum.

 

[assenucler]

Teşekkürler üstadım

Sayın Zeki Gürsoy;


Gününüz aydınlık, neşeniz sağlığınız yerinde, kazancınız bol ve her şey gönlünüzce olsun. İyi pazarlar dilerim.

Üstadım inceliğiniz, içtenliğiniz ve bu güzel katkınız için en içten teşekkürlerimi sunarım.

Sevgi ve saygılar.

 

[1Al2Ver]

Sayın Zeki Gürsoy, merhaba,

Çözümden ben de faydalandım,

Teşekkür ederim.