1. Forum
  2. Usenet
  3. COMP.APPS.SPREADSHEETS

  • Update Maximum and Minimum values on 2 axis chart

    From [email protected]@21:1/5 to All on Wed Feb 3 14:34:55 2016
    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

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)