In diesem Beispiel wird der Beschriftungsabstand der Größenachse in Chart1 auf das Doppelte der aktuellen Einstellung festgelegt, falls der Offset kleiner als 500 ist.
With Charts("Chart1").Axes(xlValue).TickLabels If .Offset < 500 then .Offset = .Offset * 2 End If End With