DropType 属性

       

返回表示标注线与标注文本框的连接位置的值。MsoCalloutDropType 类型,只读。

expression.DropType

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

说明

如果标注的垂直线类型为 msoCalloutDropCustom,则 Drop 属性和 AutoAttach 属性的值,以及标注文本框和标注线起点(标注所指向的位置)的相对位置将用于决定标注线与标注文本框的连接位置。

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

示例

本示例根据自定义的垂直距离值是大于还是小于标注文本框高度的一半,将 myDocument 上第一个图形的自定义垂直距离值替换为两个预置垂直距离值之一。为使本示例正常运行,第一个图形必须为标注。

Set myDocument = Worksheets(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