DropType 属性

返回到表示位置的值，标注线在该位置连到标注文本框。只读。MsoCalloutDropType 类型。

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

如果标注垂直距离的类型是 msoCalloutDropCustom，Drop 和 AutoAttach 属性的值以及标注框与标注线源位置（该标注指向的位置）的相对关系被用于决定标注线连接到文本框的位置。

该属性为只读。使用 PresetDrop 方法设置该属性的值。

示例

本示例通过检查来决定 myDocument 中的第三个形状是否为带有自定义下沉的标注。如果是此种标注，编码用一或两个预设的下沉替换自定义下沉，这依赖于自定义垂直距离是否大于或小于标注文本框高度的一半。

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