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
ActiveChart.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(ActiveChart.Axes(xlValue).MaximumScale, Abs(ActiveChart.Axes(xlValue).MinimumScale)) ActiveChart.Axes(xlValue).MinimumScale=-ActiveChart.Axes(xlValue).MaximumScale
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionActiveChart.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(ActiveChart.Axes(xlValue).MaximumScale, Abs(ActiveChart.Axes(xlValue).MinimumScale)) ActiveChart.Axes(xlValue).MinimumScale=-Application.WorksheetFunction.Max(ActiveChart.Axes(xlValue).MaximumScale, Abs(ActiveChart.Axes(xlValue).MinimumScale))