CustomLength 方法

指明在移动标注时标注线的第一条线段（即附加于文字标注框的线段）保持固定长度。请用 AutomaticLength 方法指明在移动标注时自动调整标注线的第一条线段长度。该方法只用于包含多条线段的标注线（类型为 msoCalloutThree 和 msoCalloutFour）。

expression   必需。该表达式返回一个 CalloutFormat 对象。

Length   Single 类型，必需。标注的第一条线段长度，以磅为单位。

说明

用此方法将 AutoLength 属性设为 False，并将 Length 属性设为 Length 参数值。

示例

本示例使活动文档中第一个图形的标注行首段在自动缩放段落和固定长度段落间切换。若要使示例生效，第一个图形必须是标注。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.Shapes(1).Callout
    If .AutoLength Then
        .CustomLength 50
    Else
        .AutomaticLength
    End If
End With