Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Update Maximum and Minimum values on 2 axis chart
13 views
Skip to first unread message
rhh...@gmail.com
Feb 3, 2016, 5:34:56 PM2/3/16
to
I am trying to update my Maximum and Minimum chart values automatically referencing cell values from a worksheet called Data. Just haven't been able to. Example is the value 0.6465 for MinimumScale is cell AS15 in the Data worksheet. I have tried so many suggestions, but no can do. Any help to get me started would be appreciated. Thanks.
Sheets("1 MIN").Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0.6465
.MaximumScale = 0.6693
.MinorUnitIsAuto = True
.MajorUnit = 0.0004
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue, xlSecondary).Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScale = -26135
.MaximumScale = 4953
.MinorUnitIsAuto = True
.MajorUnit = 3000
.Crosses = xlAutomatic
.ReversePlotOrder = True
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
Sheets("1 MIN").Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0.6465
.MaximumScale = 0.6693
.MinorUnitIsAuto = True
.MajorUnit = 0.0004
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue, xlSecondary).Select
With ActiveChart.Axes(xlValue, xlSecondary)
.MinimumScale = -26135
.MaximumScale = 4953
.MinorUnitIsAuto = True
.MajorUnit = 3000
.Crosses = xlAutomatic
.ReversePlotOrder = True
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
0 new messages