In diesem Beispiel werden die in Chart1 auf der Größenachse angezeigten Einheiten auf die Schrittweite 500 festgelegt; die Einheitenbeschriftung bleibt jedoch ausgeblendet.
With Charts("Chart1").Axes(xlValue) .DisplayUnit = xlCustom .DisplayUnitCustom = 500 .AxisTitle.Caption = "Rebate Amounts" .HasDisplayUnitLabel = False End With