Word VBA教程:AutoAttach属性

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

MsoTriState 可以是这些 MsoTriState 常量之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue

说明

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

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号