PresetDrop Method

Microsoft Excel Visual Basic

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 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 = Worksheets(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropTop Then
        .PresetDrop msoCalloutDropBottom
    ElseIf .DropType = msoCalloutDropBottom Then
        .PresetDrop msoCalloutDropTop
    End If
End With