Chart X Axis Scaling

Hello,
Please help me with macro which can shift (increase by 7)
X axis scale maximum and minimum values.
Thanks a lot!

Originally Posted by proton

Hello,
Please help me with macro which can shift (increase by 7)
X axis scale maximum and minimum values.
Thanks a lot!

Did you know what they wee before?

  ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).Values = "=Sheet3!R2C1:R7C1"

amends the x axis (for series 1), and

    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = 6
        .MaximumScale = 9
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

adjusts the Y axis limits.

does this help?
---

.MinimumScale = 6
.MaximumScale = 9
must be variables and avery time must increase by 7

Originally Posted by proton

.MinimumScale = 6
.MaximumScale = 9
must be variables and avery time must increase by 7

        .MinimumScale = myMinScale
        .MaximumScale = myMaxScale

which could then be stored, probably as a cell value in a cell of your choice.

---