In diesem Beispiel wird zwischen automatischer Skalierung des ersten Abschnitts und Skalierung mit fester Länge der Legendenlinie in der ersten Form von myDocument umgeschaltet. 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