Este snippet de código deve fornecer o básico para sua solicitação. Em um módulo para sua pasta de trabalho, ela deve ser autônoma ou, daqui, você pode expandi-la para outras planilhas ou modificar qualquer parte de um gráfico. As primeiras duas linhas são para trapping com erro, caso você não tenha um gráfico selecionado. Tudo o resto formata. Basta apontar os intervalos de referência para as células que você gostaria de usar para suas escalas.
Sub CustomAxis()
If ActiveChart Is Nothing Then ' Error trap to ensure a chart is selected MsgBox "Please: Select a chart and try again.", vbExclamation Else ActiveChart.Axes(xlValue).MinimumScale = Range("A2") 'Set min scale to cell A2 ActiveChart.Axes(xlValue).MaximumScale = Range("A3") 'Set max scale to cell A3 ActiveChart.Axes(xlValue).MajorUnit = Range("A4") 'Set major tick to cell A4 ActiveChart.Axes(xlValue).MinorUnit = Range("A5") 'Set minor tick to cell A5 End If
End Sub