Drop 属性

       

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

说明

CustomDrop 方法可设置此属性值。

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

示例

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

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