Dim Valmin As Double, Valmax As Double
Valmin = -Application.WorksheetFunction.Max(ActiveChart.Axes(xlValue).MaximumScale, Abs(ActiveChart.Axes(xlValue).MinimumScale))
Valmax = Application.WorksheetFunction.Max(ActiveChart.Axes(xlValue).MaximumScale, Abs(ActiveChart.Axes(xlValue).MinimumScale))
ActiveChart.Axes(xlValue).MinimumScale = Valmin
ActiveChart.Axes(xlValue).MaximumScale = Valmax