Word VBA教程:Drop属性

如果标注设置了显式的垂直距离,则此属性将返回文本边界框与标注线附加在文本框的位置之间的垂直距离(以磅为单位)。此距离从文本框的顶边计算,但当 AutoAttach属性为 True 且文本框在标注线起点(标注所指位置)的左侧时例外,此时的距离从文本框底部开始计算。Single 类型,只读。

说明

CustomDrop方法可设置此属性值。

只有在标注具有显式设置的垂直距离值,即DropType属性值为 msoCalloutDropCustom 时,此 Drop属性值才精确反映标注线附加于文本框的位置。可使用PresetDrop msoCalloutCustomDrop 语句将DropType属性设置为 msoCalloutDropCustom。

VBA示例

本示例实现的功能是:根据自定义垂直距离是大于还是小于标注文本框的高度的一半,将活动文档中的第一个图形的自定义垂直距离替换为两个预设值之一。若要示例有效,第一个图形必须标注。


Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(1).Callout
    If .DropType = msoCalloutDropCustom Then
        If .Drop < .Parent.Height / 2 Then
            .PresetDrop msoCalloutDropTop
        Else
            .PresetDrop msoCalloutDropBottom
        End If
    End If
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号