
Sub CambiaValori()
ActiveSheet.ChartObjects("Grafico 2").Activate 'attivi il grafico senza selezionarlo - attento al nome del grafico
With ActiveChart.Axes(xlValue) 'con l'asse dei valori
.MinimumScale = 1000 'imposta il valore minimo che puoi far prendere da una cella
.MaximumScale = 2000 'imposta il valore massimo che puoi far prendere da una cella
End With
End Sub
|
