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?

On Mar 4, 11:14*am, namsilat wrote:
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

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


On Sat, 5 Mar 2011 09:46:57 -0800 (PST), Donald Guillett
wrote:

On Mar 4, 11:14?am, namsilat wrote:
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