Grafikde makro ile eksen ayarı

[torik52]

aşşağıdaki makroda soru işereti koyduğum yere örneğin a1 hücresinden veri alsın ona göre grfk eksenini ayarlasın istiyorum soru işretlerinin olduğu yere ne gelmesi gerekir.teşekkür ederim.birde bu makro grfk değiştikce otomatik nasıl çalışır
saygılar.
Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.ChartObjects("8 Grafik").Activate
ActiveSheet.ChartObjects("8 Grafik").Activate
ActiveChart.Axes(xlValue).Select
ActiveSheet.ChartObjects("8 Grafik").Activate
ActiveChart.Axes(xlValue).MinimumScale =?
ActiveChart.Axes(xlValue).MinimumScale =?
End Sub