Sub ScaleGraphs_Click()
Dim lngBasePremium As Long
Worksheets("print report").Activate
ActiveSheet.Unprotect "jrr" 'Where jrr is the password
lngBasePremium = Range("H54")
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = lngBasePremium
.MaximumScale = lngBasePremium * 2
.MinorUnit = lngBasePremium * 0.1
.MajorUnit = lngBasePremium * 0.25
.Crosses = xlCustom
.CrossesAt = lngBasePremium
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = lngBasePremium
.MaximumScale = lngBasePremium * 2
.MinorUnit = lngBasePremium * 0.1
.MajorUnit = lngBasePremium * 0.25
.Crosses = xlCustom
.CrossesAt = lngBasePremium
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = lngBasePremium * 0.6
.MaximumScale = lngBasePremium * 1.5
.MinorUnit = lngBasePremium * 0.02
.MajorUnit = lngBasePremium * 0.1
.Crosses = xlCustom
.CrossesAt = lngBasePremium
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = lngBasePremium * 0.6
.MaximumScale = lngBasePremium * 1.5
.MinorUnit = lngBasePremium * 0.02
.MajorUnit = lngBasePremium * 0.1
.Crosses = xlCustom
.CrossesAt = lngBasePremium
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
ActiveSheet.ChartObjects("Chart 9").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = lngBasePremium * 0.8
.MaximumScale = lngBasePremium * 1.8
.MinorUnit = lngBasePremium * 0.02
.MajorUnit = lngBasePremium * 0.1
.Crosses = xlCustom
.CrossesAt = lngBasePremium
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = lngBasePremium * 0.8
.MaximumScale = lngBasePremium * 1.8
.MinorUnit = lngBasePremium * 0.02
.MajorUnit = lngBasePremium * 0.1
.Crosses = xlCustom
.CrossesAt = lngBasePremium
.ReversePlotOrder = False
.ScaleType = xlLinear
End With
Range("A1").Select
ActiveSheet.Protect "jrr"
End Sub