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 one of the objects in the Applies To list.
DropType Required MsoCalloutDropType. The starting position of the callout line relative to the text bounding box
| MsoCalloutDropType can be one of these MsoCalloutDropType constants. |
| msoCalloutDropBottom |
| msoCalloutDropCenter |
| msoCalloutDropCustom Specifying msoCalloutDropCustom for this argument will cause your code to fail. |
| msoCalloutDropMixed |
| msoCalloutDropTop |
Example
This example specifies that the callout line attach to the top of
the text bounding box for shape one on myDocument. For the example
to work, shape one must be a callout.
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTopThis example toggles between two preset drops for shape one on myDocument.
For the example to work, shape one must be a callout.
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