R
Reto Walker
Hi everyone
How can I adjust the following macro to make the MinimumScale value and
MaximumScale value dynamic (by referencing a cell in one of my spreadsheets)
instead of fixed (currently 5400 and 7000)
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/15/04 by Reto Walker
'
'
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 5400
.MaximumScale = 7000
.MinorUnit = 100
.MajorUnit = 500
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Thanks in advance
Regards,
Reto
How can I adjust the following macro to make the MinimumScale value and
MaximumScale value dynamic (by referencing a cell in one of my spreadsheets)
instead of fixed (currently 5400 and 7000)
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/15/04 by Reto Walker
'
'
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 5400
.MaximumScale = 7000
.MinorUnit = 100
.MajorUnit = 500
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Thanks in advance
Regards,
Reto