View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Donald Guillett Donald Guillett is offline
external usenet poster
 
Posts: 36
Default setting scale for graphs

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