This example toggles between an automatically scaling first segment and one with a fixed length for the callout line for shape one on myDocument
. For the example to work, shape one must be a callout.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With