使标注线的第一条线段(即与标注文本框相连的线段)在标注移动时保持固定长度不变。可用 AutomaticLength 方法使标注线的第一条线段在标注移动时自动调整长短。仅适用于仅适用于标注线由若干线段组成的标注(msoCalloutThree 类型和 msoCalloutFour 类型)。
expression.CustomLength(Length)
expression 必需。该表达式返回一个 CalloutFormat 对象。
Length Single 类型,必需。以磅为单位指定标注线的第一条线段的长度。
应用本方法将使 AutoLength 属性变为 False ,并使 Length 属性成为参数 Length 所指定的值。
本示例判断 myDocument
上第一个图形的标注线,如果其第一段是自动调整长度的,就将其转换为固定长度的;而如果第一段是固定长度的,就将其转换为自动调整长度的。为使本示例正常运行,第一个图形必须是标注。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With