Diagrammgröße und Schrift

Sub Groesse()
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
.Height = 600
.Width = 900
.Top = 10
.Left = 10
End With
With ActiveChart.Axes(xlCategory)
.TickLabels.Font.Size = 11
.MinimumScale = 1
.MaximumScale = 34
.MajorUnit = 1
End With
With ActiveChart.Axes(xlValue)
.TickLabels.Font.Size = 11
.MinimumScale = 1
.MaximumScale = 21
.MajorUnit = 1
.ReversePlotOrder = True
.MajorGridlines.Border.LineStyle = xlDot
End With
End Sub

Wenn ich nach der Anpassung der Diagrammgröße einen Breakpunkt einfüge, klappt alles wie gewünscht. Lasse ich das Makro durchlaufen, wird die Schriftgröße der Achsenbeschriftung nicht richtig angepasst. Es scheint dann so, als ob sich das Makro "überholt" und erst die Schriftgröße ändert und dann die Diagrammgröße und damit die Schriftgröße wieder mit vergrößert.
Wie kann ich das verhindern? Ich habe schon versucht, abzufragen, ob die Diagrammbreite 600 ist und erst dann die Schriftgröße zu ändern, aber das bringt leider keinen Erfolg.
Danke und Gruß
Specke