表示标注线是连接在标注文本框的顶端、底端还是中心，或者表示标注线是连接在距标注文本框的顶端有一定距离的位置上，还是距底端有一定距离的位置上。
expression.PresetDrop(DropType)
expression 必需。该表达式返回“应用于”列表中的一个对象。
DropType MsoCalloutDropType 类型，必需。标注线的起点相对于文本框的位置。
| MsoCalloutDropType 可为以下 MsoCalloutDropType 常量之一。 |
| msoCalloutDropBottom |
| msoCalloutDropCenter |
| msoCalloutDropCustom Specifying msoCalloutDropCustom for this argument will cause your code to fail. |
| msoCalloutDropMixed |
| msoCalloutDropTop |
本示例使 myDocument 中第一个图形的标注线连接到标注文本框的顶端。为使本示例正常运行，第一个图形必须是标注。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTopThis 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