Sub SetScale()
With Charts("2D Ballistic")
With .Axes(xlCategory, xlPrimary)
.MinimumScale = Worksheets("Details").Range("AL2").Value
.MaximumScale = Worksheets("Details").Range("AL3").Value
End With
With .Axes(xlValue, xlPrimary)
.MinimumScale = Worksheets("Details").Range("AM2").Value
.MaximumScale = Worksheets("Details").Range("AM3").Value
End With
End With
End Sub
I used the following formula in AL2:AM3
AL2: =FLOOR(MIN(AL13:AL130),10)
AM2: =FLOOR(MIN(AM13:AM130),10)
AL3: =CEILING(MAX(AL13:AL130),10)
AM3: =CEILING(MAX(AM13:AM130),10)
Bookmarks