PresetDrop Method
Specifies whether the callout line attaches to the top, bottom, or center of the callout text box or whether it attaches at a point that's a specified distance from the top or bottom of the text box.
expression.PresetDrop(DropType)
expression Required. An expression that returns a CalloutFormat object.
DropType Required MsoCalloutDropType. The starting position of the callout line relative to the text bounding box. If you specify msoCalloutDropCustom, the values of the Drop and AutoAttach properties and the relative positions of the callout text box and callout line origin (the place that the callout points to) are used to determine where the callout line attaches to the text box.
| MsoCalloutDropType can be one of these MsoCalloutDropType constants. |
| msoCalloutDropCenter |
| msoCalloutDropMixed |
| msoCalloutDropBottom |
| msoCalloutDropCustom |
| msoCalloutDropTop |
Example
This example specifies that the callout line attach to the top of the text bounding box for the first shape on the active document. For the example to work, the first shape must be a callout.
ActiveDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTopThis example toggles between two preset drops for the first shape on the active document. For the example to work, the first shape must be a callout.
With ActiveDocument.Shapes(1).Callout
If .DropType = msoCalloutDropTop Then
.PresetDrop msoCalloutDropBottom
ElseIf .DropType = msoCalloutDropBottom Then
.PresetDrop msoCalloutDropTop
End If
End With