Drop 属性

对于显式设置了垂直距离的标注，该属性返回从文本框边缘到标注线连接位置的垂直距离（以磅为单位）。该距离通常从文本框顶端测量，但当 AutoAttach 属性值设为 True 且文本框位于标注线源位置（该标注所指向的位置）的左侧时，该垂直距离从文本框底端测量。只读。Single 类型。

说明

使用 CustomDrop 方法设置该属性值。

只有在标注明确地设置了垂直距离，即 DropType 属性的值为 msoCalloutDropCustom 时，此项属性值才会准确地反映连在文本框上的标注线的位置。

示例

本示例用一或两个预设的下沉替换 myDocument 中第一个形状的自定义下沉，这依赖于自定义垂直距离是否大于或小于标注文本框高度的一半。要使本示例执行，第一个形状必须是标注。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropCustom Then
        If .Drop < .Parent.Height / 2 Then
            .PresetDrop msoCalloutDropTop
        Else
            .PresetDrop msoCalloutDropBottom
        End If
    End If
End With