Length property as it applies to the CalloutFormat object.
When the AutoLength property of the specified callout is set to False, the Length property returns the length (in points) of the first segment of the callout line (the segment attached to the text callout box). Applies only to callouts whose lines consist of more than one segment (types msoCalloutThree and msoCalloutFour). Read-only Float. Use the CustomLength method to set the value of this property for the CalloutFormat object.
expression.Length
expression Required. An expression that returns one of the above objects.
Length property as it applies to the TextRange object.
Returns the length of the specified text range, in characters. Read-only Long.
expression.Length
expression Required. An expression that returns one of the above objects.
Example
As it applies to the CalloutFormat object.
If the first line segment in the callout named "co1" has a fixed length, this example specifies that the length of the first line segment in the callout named "co2" will also be fixed at that length. For the example to work, both callouts must have multiple-segment lines.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
With .Item("co1").Callout
If Not .AutoLength Then len1 = .Length
End With
If len1 Then .Item("co2").Callout.CustomLength len1
End With
As it applies to the TextRange object.
This example sets the title font size to 48 points if the title of slide two contains more than five characters, or it sets the font size to 72 points if the title has five or fewer characters.
Set myDocument = ActivePresentation.Slides(2)
With myDocument.Shapes(1).TextFrame.TextRange
If .Length > 5 Then
.Font.Size = 48
Else
.Font.Size = 72
End If
End With