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

msoCalloutDropMixed Not used with this method.

msoCalloutDropTop

Example

This example specifies that the callout line attach to the top of the text bounding box for the first shape in the active publication. For the example to work, the shape must be a callout.

ActiveDocument.Pages(1).Shapes(1).Callout _
    .PresetDrop DropType:=msoCalloutDropTop

This example toggles between two preset drops for the first shape one in the active publication. For the example to work, the shape must be a callout.

With ActiveDocument.Pages(1).Shapes(1).Callout
    Select Case .DropType
        Case msoCalloutDropTop
            .PresetDrop DropType:=msoCalloutDropBottom
        Case msoCalloutDropBottom
            .PresetDrop DropType:=msoCalloutDropTop
    End Select
End With