In diesem Beispiel wird zwischen automatischer Skalierung des ersten Abschnitts und Skalierung mit fester Länge der Legendenlinie in der ersten Form von myDocument hin- und hergeschaltet. Das Beispiel funktioniert nur, wenn es sich bei der Form um eine Legende handelt.
Set myDocument = Worksheets(1) With myDocument.Shapes(1).Callout If .AutoLength Then .CustomLength 50 Else .AutomaticLength End If End With