Question

全部显示

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