可用本方法指定:移动标注时,标注线的第一条线段(附加在标注文字框上的线段)将进行自动调整。可使用 CustomLength 方法,指定无论何时移动标注,标注线的第一条线段都保持由 Length 属性返回的固定长度。本方法只适用于包含一条以上标注线的标注(msoCalloutThree 和 msoCalloutFour)。
expression.AutomaticLength
expression 必需。该表达式返回一个 CalloutFormat 对象。
用此方法可将 AutoLength 属性设置为 True。
本示例将活动文档中第一个图形的标注行首段在自动缩放段落和固定长度段落间进行切换。若要使示例生效,第一个图形必须是标注。
Dim docActive as Document
Set docActive = ActiveDocument
With docActive.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With