Acho que você precisa fazer isso usando o VBA .
-
Você pode calcular primeiro o valor MAX, MIN e Major Unit em uma célula.
D1:=CEILING(MAX(B:B),5)
fornece a próxima unidade mais alta de 5 (por exemplo, 25) < br> D2, D3 : qualquer valor ou fórmula de correção que você desejar -
Em seguida, use o seguinte script para vincular as
MaximumScale
,MinimumScale
eMajorUnit
do gráfico às células.Option Explicit Private Sub ChangeAxisScales() With ActiveSheet.ChartObjects("Chart 1").Chart ' Value (Y) Axis With .Axes(xlValue) .MaximumScale = ActiveSheet.Range("$D$1").Value .MinimumScale = ActiveSheet.Range("$D$2").Value .MajorUnit = ActiveSheet.Range("$D$3").Value End With End With End Sub
(Como alternativa, você pode calcular os valores no VBA também.)
Link de referência: link