CustomDrop 方法

设置文本范围限制框边到文本框标注线的垂直距离（磅值）。此距离从文本框的顶边计算，但当 AutoAttach 属性为 True 且文本框在标注线起点（标注所指位置）的左侧时例外，此时的距离从文本框底部开始计算。

expression   必需。该表达式返回一个 CalloutFormat 对象。

Drop   Single 类型，必需。垂直距离，以磅为单位。

说明

如果已使用 PresetDrop 方法设置指定标注线的垂直距离，则需在使用 CustomDrop 方法前使用 PresetDrop msoCalloutDropCustom 语句，以使自定义生效。

示例

本示例删除活动文档中第一个图形预设的垂直距离，将自定义垂直距离设为 14 磅，并指定该值总是从顶端开始。第一个图形必须是标注，以使该示例生效。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.Shapes(1).Callout
    .PresetDrop msoCalloutDropCustom
    .CustomDrop 14
    .AutoAttach = False
End With