AutomaticLength Method
Specifies that the first segment of the callout line (the segment attached to the text callout box) be scaled automatically when the callout is moved. Use the CustomLength method to specify that the first segment of the callout line retain the fixed length returned by the Length property whenever the callout is moved. Applies only to callouts whose lines consist of more than one segment (types msoCalloutThree and msoCalloutFour).
expression.AutomaticLength
expression Required. An expression that returns a CalloutFormat object.
Remarks
Applying this method sets the AutoLength property to True.
Example
This example toggles between an automatically scaling first segment and one with a fixed length for the callout line for the first shape on the active document. For the example to work, the first shape must be a callout.
Dim docActive as Document
Set docActive = ActiveDocument
With docActive.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With