AutoAttach 属性

如果该属性值为 True，则标注线附加在标注文本框的位置会根据标注线起点（即标注所指位置）在标注文本框的左右位置的变化而变化。MsoTriState，可读写。

说明

如果该属性值为 True，则引出线位置（即标注文本框边框到标注线附加位置的垂直距离）的计算方法为：文本框在起点的右侧时从文本框顶部算起，文本框在起点的左侧时从文本框底部算起。如果此属性为 False，则垂直距离总是从文本框顶部算起，与文本框和起点的相对位置无关。可用 CustomDrop 方法设置引出线位置，用 Drop 属性可返回垂直距离。

此属性只对具有显式垂直距离设置的标注有效，即标注的 DropType 属性值为 msoCalloutDropCustom。创建标注时默认为具有显式垂直距离设置。

示例

本示例为活动文档添加两个标注。如果将两个标注的文本框都拖至标注线起点的左侧，则对该自动附加的标注来说，标注线在文本框上的附加位置也会相应进行改变。

Dim docActive as Document

Set docActive = ActiveDocument

With docActive.Shapes
    With .AddCallout(msoCalloutTwo, 100, 170, 200, 50)
        .TextFrame.TextRange.Text = "auto-attached"
        .Callout.AutoAttach = msoTrue
    End With
    With .AddCallout(msoCalloutTwo, 100, 350, 200, 50)
        .TextFrame.TextRange.Text = "not auto-attached"
        .Callout.AutoAttach = msoFalse
    End With
End With