Word) (CalloutFormat.Drop 属性

  • 项目

返回文本范围限制框边到文本框标注线的垂直距离（磅值）。 只读的 单一 。

语法

表达式。下降

表达 一个代表“CalloutFormat”对象的变量。

备注

Drop 属性应用于具有显式设置的垂直距离值的标注。 此距离是从文本框顶部测量的，除非文本框位于标注线的原点左侧， (标注指向) 的位置，在这种情况下，从文本框底部测量下降距离。

使用 CustomDrop 方法来设置此属性的值。

此属性的值能准确反映标注线连接到文本框的位置，只有在标注设置了显式垂直距离 — — 也就是说，如果 DropType 属性的值是 msoCalloutDropCustom 。 使用 语句 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

另请参阅

CalloutFormat 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。