setting scale for graphs

[namsilat]

Instead of having to enter numbers manuallly, is it possible to point
the Max and Min values under Scale for a graph to specific cells in
the spreadsheet?

 

[Donald Guillett]

Instead of having to enter numbers manuallly, is it possible to point
the Max and Min values under Scale for a graph to specific cells in
the spreadsheet?

Here is a recorded macro. Just change the reference
..MinimumScale =range("a2")
..MaximumScale = range("a3")


Sub Macro7()
'
' Macro7 Macro
' Macro recorded 3/5/2011 by Donald B. Guillett
'

'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 5
.MaximumScale = 25
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

 

[namsilat]

Thanks for the macro. I forgot to mention that the charts are in
another sheet, while the soruce data are in sheet 1.