MsoTrue 自动设置标注线的长度。MsoTriState,只读。
MsoTriState 可以是下列 MsoTriState 常量之一: |
msoCTrue 不用于该属性。 |
msoFalse 手动设置标注线的长度。 |
msoTriStateMixed 不用于该属性。 |
msoTriStateToggle 不用于该属性。 |
msoTrue 自动设置标注线的长度。 |
expression.AutoLength
expression 必需。该表达式返回一个 CalloutFormat 对象。
用 AutomaticLength 方法可将此属性设置为 msoTrue,用 CustomLength 方法可将此属性设置为 msoFalse。
本示例创建一个新文档,并为新文档添加标注,然后手动设置标注的长度。
Sub AutoCalloutLength()
Dim docNew As Document
Dim shpCallout As Shape
Set docNew = Documents.Add
Set shpCallout = docNew.Shapes.AddCallout(Type:=msoCalloutFour, _
Left:=15, Top:=15, Width:=150, Height:=200)
With shpCallout.Callout
If .AutoLength = msoTrue then
.CustomLength 50
End If
End With
End Sub