PresetDrop Method

Applies To

CalloutFormat object.

Description

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.

Syntax

expression.PresetDrop(DropType)

expression Required. An expression that returns a CalloutFormat object.

DropType Required Long. The starting position of the callout line relative to the text bounding box. Can be one of the following MsoCalloutDropType constants: msoCalloutDropBottom, msoCalloutDropCenter, or msoCalloutDropTop. Specifying msoCalloutDropCustom for this argument will cause your code to fail.

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 = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop

This example toggles between two preset drops for shape one on myDocument. For the example to work, shape one must be a callout.

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