In diesem Beispiel werden die in Chart1 auf der Größenachse angezeigten Einheiten auf die Schrittweite 500 festgelegt.
With Charts("Chart1").Axes(xlValue) .DisplayUnit = xlCustom .DisplayUnitCustom = 500 .HasTitle = True .AxisTitle.Caption = "Rebate Amounts" End With