In diesem Beispiel wird die Beschriftung für die Größenachse in Chart1 auf "Millions" eingestellt und dann die automatische Schriftskalierung deaktiviert.
With Charts("Chart1").Axes(xlValue).DisplayUnitLabel
.Caption = "Millions"
.AutoScaleFont = False
End With