Grafiklere köprü veya benzeri bir yol ekleme

[doqukan]

Grafiklerden oluşan bir tablom var.Grafikteki istenilen bir noktaya tıklandıgın da,oranın acıklaması olarak göstermesi gereken yerler var.Nasıl yaparız

https://postimg.org/image/kechwysef/

yani biri kırmızı sütuna tıkladıgında başka bi yerdeki benim tablomu göstersin

 

[doqukan]

Mümkün degil mi böyle bişey yapmak

 

[sakman26]

selam,
fikir vermek amaçlı olarak hazırlanan eki inceleyiniz..
(Burada, grafik üzerindeki sütunlara tıklayarak değil de , seçim yaparak açıklamalar getirtilmiş ve getirilen açıklamaların bulunduğu yerlere köprü ile link verilmiştir)
Not: Resim eklemek yerine örnek dosya ekleseydiniz daha net cevap alırdınız. Zira resim hiç bir şey ifade etmiyor. Hangi sayfa hangi tablo.... hiç bir bilgi de yok. Örnekten hareketle uyarlamalarınızı yaparsınız...

link : http://s4.dosya.tc/server2/acmb56/Grafik_Aciklama.xlsx.html

 

[doqukan]

Zahmet edip çok güzel birşey yapmışsınız iyice bir anlamaya çalışıyım

Teşekkürler

edit:şu ayları degiştirdiğimiz tuşları oluşturmak ile ilgili bir rehber varsa yönlendirebilirmisin acaba

 

[sakman26]

aşağı yukarı oklar ile değer değiştiricileri diyorsunuz sanırım.
Geliştirici Menüsü > Ekle kısmını incelersiniz.. Office yardım da da arayabilirsiniz. Ama rehber maalesef YOK.

 

[doqukan]

Peki ben böyle bir tuş atayarak sutün grafigi -çizgi grafiğe dönüştürebilirmiyim

 

[Ömer BARAN]

Merhaba.

Sayın sakman şu an forumda değil.
Grafik olayları pek ilgilendiğim konulardan değil ama, bildiğim kadarıyla sütun grafikte,
grafikteki tek tek sütunlara link eklenemiyor diye biliyorum (araştırmak lazım, belki mümkündür).

Fikir vermesi bakımından aşağıdaki gibi deneyiniz.
(Not: kod satırları MAKRO KAYDET yöntemiyle elde edildi.
Grafik türlerinin vba karşılıklarını deneyerek bulabilirsiniz.)
Kod'daki mavi satır grafiği ÇİZGİ, kırmızı satır ise SÜTUN olarak biçimlendirir,
kod'da yer alan SeriesCollection(1) kısmı grafikteki VERİ SERİSİ'nin numarasıdır.
.

[FONT="Arial Narrow"]Sub GRAFİK()
    ActiveSheet.ChartObjects("Grafik 1").Activate
[COLOR="Blue"]    ActiveChart.FullSeriesCollection(1).ChartType = [B]xlLine[/B][/COLOR]
[COLOR="Red"]    ActiveChart.FullSeriesCollection(1).ChartType =[B] xlColumnClustered[/B][/COLOR]
End Sub[/FONT]

 

[doqukan]

hata alıyorum yapamadım bir türlü bunun üzerinde bir örnek yaparmısınız,Ömer bey dosya paylaşmam yasak mı bilmiyorum elinizde örnek varsa onu atarsanız makbule geçer benim için
http://s4.dosya.tc/server2/mo0vst/ornek.rar.html

 

[Ömer BARAN]

Merhaba.

Dosyaya buradan ulaşabilirsiniz.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılacak ekranın sağ tarafındaki kodlara bakınız.

İLAVE AÇIKLAMA:Örnek dosya yenilendi, tekrar indirerek kontrol ediniz.
.

 

[doqukan]

Ömer bey,

Çok teşekkürler,hemen inceliyorum.

 

[doqukan]

Gönderdiğiniz dosyada Çizgiye tıkladığım zaman

Compile error:

Method or data member not found

yazısı çıkıyor benden kaynaklı bir sorunmudur acaba

 

[Ömer BARAN]

Şu anda bilgisayar başında değilim, cep telefonundan yazıyorum.
Denemeden dosya göndermem. Hatalı haliyle kaydedip foruma ekleyin, birkaç saat sonra bakarım.

 

[doqukan]

Ben sizin eklediğiniz dosyadan bahsediyorum.kullanmaya çalıştığı zaman aşağıdaki şekilde hata almıyorum.acaba ben mi yanlış bir yere tıklıyorum anlamadım.

Compile error:

Method or data member not found

 

[sakman26]

selam,
müsaadenizle araya gireyim dedim.
Ömer Bey'in gönderdiği dokumanda Makro kodlarını içeren sayfa7 deki kodlarda geçen

ActiveChart.FullSeriesCollection(seri).ChartType = xlLine
ActiveChart.FullSeriesCollection(seri).ChartType = xlColumnClustered

ifadelerindeki Full ibaresini kaldırarak

ActiveChart.SeriesCollection(seri).ChartType = xlLine
ActiveChart.SeriesCollection(seri).ChartType = xlColumnClustered

şeklinde yapın ve deneyin... Ben o şekilde sonuç elde ettim..

kolay gelsin..

 

[Ömer BARAN]

Teşekkürler Sayın sakman.

Daha evvelki benzer sorun aklıma gelmedi demekki.
Bilemiyorum ama Excel versiyonuyla veya ayarlarıyla ilgili olabilir.

Önceki cevabımda erişim adresini verdiğim dosyayı yeniledim.
Belgeyi o bağlantıdan tekrar indirerek kontrol ediniz.
.

 

[sakman26]

Rica ediyorum Ömer Bey,
geçenlerde aynı olayı bir defa daha yapmış ve çözüme ulaşmıştık.
Bu defa da aynısını yaparak olayın çözümlendiğini görünce yazmak istedim.
selamlar..

 

[doqukan]

Günaydın

Sakman ve Ömer bey ikinize de ilgilinizden ötürü çok teşekkür ederim.Bunu biraz kurcalıyım şimdi ben

 

[sakman26]

selam,
bu arada şunu söylemek isterim...
* eğer grafikte sütunlardaki kenarlık çizgilerini beyaz değil de sütun renginde yaparsanız, ya da kenarlık çizgi yok tiki ni işaretlerseniz, çizgiler de beyaz yerine sütun rengi ile aynı renk olacaktır.
** grafik sütunlarının komplesinin çizgi grafik olması için (makroda seri seçerek tek tek yapabiliyorsunuz) grafik alanına sağ tuş ile tıklayınca Grafik tipini değiştire basın ve buradan açılan menüden çizgiyi seçin. Tamamı çizgi olacaktır. bunu aynı zamanda her bir seri için de yapabilirsiniz....Her hangi bir sütunu seçip sağ tuş , grafik tipi değiştir ve istediğiniz tipi seçin.

 

[doqukan]

Sayın Sakman,

*Bende o beyaz çizgilere bakıyordum teşekkürler yardımınız için daha fazla soru sormaya çekindim

**Sağ tıklayıp açılan menüden hepsini çizgi grafik yapmayı biliyorum ama ben bu raporları hazırlayıp genel müdüre sunucam o yüzden kendisinin tek bir tuşa basarak hepsini çizgi grafige dönüştürebilmesini böylece performans artış azalışları görebilmesini istedim.

İlginize çok teşekkürler

 

[sakman26]

rica ediyorum...
soru sormaktan çekinmeyin derim... Buradaki amaç zaten, destek vermek yardımcı olmak...
kolay gelsin..