指定标注线是连接到标注文本框的顶端、底端还是中心，或者连接到一个距文本框顶端或底端指定距离的点。
expression.PresetDrop(DropType)
expression 必选。该表达式返回一个 CalloutFormat 对象。
DropType 必选。MsoCalloutDropType 类型。与文本边框相关的标注行起始点。
| MsoCalloutDropType 可以是下列 MsoCalloutDropType 类型常数之一。 |
| msoCalloutDropBottom |
| msoCalloutDropCenter |
| msoCalloutDropCustom 指定此常数将导致代码失败。 |
| msoCalloutDropMixed |
| msoCalloutDropTop |
本示例指定在 myDocument 上将标注行添加到第一个形状的文本边框的顶端。要使本示例可以执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop本示例在 myDocument 上在第一个形状的两个预设下沉之间切换。要使本示例可以执行，第一个形状必须是标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
If .DropType = msoCalloutDropTop Then
.PresetDrop msoCalloutDropBottom
ElseIf .DropType = msoCalloutDropBottom Then
.PresetDrop msoCalloutDropTop
End If
End With