Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Grafik Soruları (http://www.excel.web.tr/forumdisplay.php?f=169)
-   -   değişken alt sınır değeri (http://www.excel.web.tr/showthread.php?t=163689)

vivident 26-04-2017 09:42

değişken alt sınır değeri
 
1 Eklenti(ler)
Merhaba

Ekteki dosyada bir grafiğim var. Sütun ve çizgi grafikten oluşuyor
"V4" hücresindeki filitre değiştiğinde veriler değişiyor, grafikte değişmiş oluyor. Lakin veri aralıklarımın alt ve üst sınır değerleri çok farklı. Ben alt sınır değerinin 0 "sıfır" değeri ile başlamasını istemiyorum. Her seçeneğe göre değişik sınırı değeri alsın.

Nedeni ise ; çizgi grafiğin daha ön plana çıkmasını istiyorum. İki çizgi grafiğin aralarındaki fark önem taşıyor. Görünmesini istediğim şeklide dosyada mevcut

Yardımlarınızı rica ederim

Levent Menteşoğlu 24-08-2017 20:38

1 Eklenti(ler)
Merhaba

Üzerinde biraz zaman geçmiş ancak istediğiniz VBA ile kolayca yapılabilir. GRAF (TR-TF) isimli sayfanın kod sayfasına aşağıdaki kodlar yazılmıştır. V4 hücresinden seçim yaptığınızda kodlar çalışacaktır. Ekli dosyayıda inceleyebilirsiniz.

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [v4]) Is Nothing Then Exit Sub

ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue).MinimumScale = 0
ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue).MajorUnitIsAuto = True

majordeg = ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue).MajorUnit

ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue).MinimumScale = majordeg

End Sub



Saat 12:38

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.