DropType 属性

返回值表示标注线在何处附加于标注文本框。MsoCalloutDropType，只读。

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

说明

如果标注的垂直距离类型是 msoCalloutDropCustom，则标注线附加于文本框的位置的是由 Drop 和 AutoAttach 属性值以及标注文本框与标注线起点（标注所指位置）的相对位置三者决定的。

此属性为只读。可用 PresetDrop 方法设置此属性的值。

示例

本示例检查并判定活动文档中的第三个图形是否是自定义垂直距离的标注。如果是，则根据此距离值是大于还是小于标注文本框的一半高度，将自定义垂直距离替换为两个预设值之一。

Dim docActive As Document

Set docActive = ActiveDocument

With docActive.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