değişken alt sınır değeri

[vivident]

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]

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.

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