Grafikde eksen sorunu

[torik52]

grafik oluşturduğumda eksen seçenekleri otomatik olduğunda bazı grfkler verileri değiştiğinde ekseni sıfırdan alıyor buda verimli olmuyor mecburen eksen seçeneklerinden girerek manuel ayarlıyorum.bunun dışında bir yol varmıdır acaba.mesala makro ile olurmu.
cevaplarınızı merakla bekliyorum.şimdiden teşekkürlerimi arz ederim.

 

[torik52]

grafik oluşturduğumda eksen seçenekleri otomatik olduğunda bazı grfkler verileri değiştiğinde ekseni sıfırdan alıyor buda verimli olmuyor mecburen eksen seçeneklerinden girerek manuel ayarlıyorum.bunun dışında bir yol varmıdır acaba.mesala makro ile olurmu.
cevaplarınızı merakla bekliyorum.şimdiden teşekkürlerimi arz ederim.

sorunumu çözdüm.v1 hücresi grafik verilerini oluşturan sayıların en küçük formülüyle yapılmıştır.
ancak bu makro elle değilde veri değiştikce otomatik çalışırmı şimdi onu yapmam lazım.yardım eden olursa sevinirim.

Sub Makro2()
'
' Makro2 Makro
'

'
ActiveSheet.ChartObjects("8 Grafik").Activate
ActiveChart.Axes(xlValue).Select
ActiveSheet.ChartObjects("8 Grafik").Activate
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MinimumScale = WorksheetFunction.Sum(ActiveSheet.Range("v1"), 0)
End Sub