Returns a Variant indicating the length (in points) of the first segment of the callout line (the segment attached to the text callout box) if the AutoLength property of the specified callout is set to False. Otherwise, an error occurs. Read-only.
expression.Length
expression Required. An expression that returns a CalloutFormat object.
Remarks
This property applies only to callouts whose lines consist of more than one segment (types msoCalloutThree and msoCalloutFour).
Use the CustomLength method to set the value of this property.
Length property as it applies to the TextRange object.
Returns a Long value indicating the length of the specified text range, in characters. Read-only.
expression.Length
expression Required. An expression that returns a TextRange object.
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.
Dim len1 As Single
With ActiveDocument.Pages(1).Shapes
With .Item("co1").Callout
If Not .AutoLength Then len1 = .Length
End With
If len1 Then .Item("co2").Callout _
.CustomLength Length:=len1
End With
As it applies to the TextRange object.
This example sets the font size of a text frame on page two to 48 points if the text frame contains more than five characters, or it sets the font size to 72 points if the text frame has five or fewer characters.
With ActiveDocument.Pages(2).Shapes(1) _
.TextFrame.TextRange
If .Length > 5 Then
.Font.Size = 48
Else
.Font.Size = 72
End If
End With