Drop 属性

       

对具有明确的垂直距离值设置的标注,本属性以磅为单位返回文本框的边框与标注线连接到文本框上的位置之间的垂直距离。此距离从文本框的顶端开始计算,除非 AutoAttach 属性为 True,且文本框位于标注线起点(标注线所指向的位置)的左边,这种情况下垂直距离从文本框的底端开始计算。Single 类型,只读。

说明

使用 CustomDrop 方法可设置本属性的值。

仅当标注有明确的垂直距离值设置,即 DropType 属性的值为 msoCalloutDropCustom 时,本属性的值才能准确地反映标注线连接到文本框的位置。

示例

本示例根据自定义的垂直距离值是大于还是小于标注文本框高度的一半,将 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