Látom, még nem jártál erre. Itt egy másik, laphoz rendelt makró. Ez akkor módosít a skála alján, ha valamelyik adatot átírod – itt a B2:B8 – tartományban.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim minn As Long

   If Not Intersect(Target, [B2:B8]) Is Nothing Then
      minn = Application.WorksheetFunction.Min(Range("B2:B8"))
      minn = Application.WorksheetFunction.MRound(minn - 10, 5)
      ActiveSheet.ChartObjects("Diagram 1").Activate
      ActiveChart.Axes(xlValue).Select
      ActiveChart.Axes(xlValue).MinimumScale = minn
   End If
End Sub