如果标注设置了显式的垂直距离,则此属性将返回文本边界框与标注线附加在文本框的位置之间的垂直距离(以磅为单位)。此距离从文本框的顶边计算,但当 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