PresetDrop 方法

       

表示标注线是连接在标注文本框的顶端、底端还是中心,或者表示标注线是连接在距标注文本框的顶端有一定距离的位置上,还是距底端有一定距离的位置上。

expression.PresetDrop(DropType)

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

DropType   MsoCalloutDropType 类型,必需。标注线的起点相对于文本框的位置。

示例

本示例使 myDocument 中第一个图形的标注线连接到标注文本框的顶端。为使本示例正常运行,第一个图形必须是标注。

Set myDocument = Worksheets(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop

This example toggles between two preset drops for shape one on myDocument 中第一个图形的预置标注线落差类型。为使本示例正常运行,第一个图形必须是标注。

Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropTop Then
        .PresetDrop msoCalloutDropBottom
    ElseIf .DropType = msoCalloutDropBottom Then
        .PresetDrop msoCalloutDropTop
    End If
End With