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