DropType Property

Microsoft Publisher Visual Basic

constant indicating where the callout line attaches to the callout text box. Read-only.

MsoCalloutDropType can be one of these MsoCalloutDropType constants.
msoCalloutDropBottom
msoCalloutDropCenter
msoCalloutDropCustom
msoCalloutDropMixed Indicates a combination of the other states in the specified shape range.
msoCalloutDropTop

expression.DropType

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

If the callout drop type is msoCalloutDropCustom, the values of the Drop and AutoAttach properties and the relative positions of the callout text box and callout line origin (where the callout points) are used to determine where the callout line attaches to the text box.

Use the PresetDrop method to set the value of this property.

Example

This example replaces the custom drop for the first shape in the active publication with one of two preset drops, depending on whether the custom drop value is greater than or less than half the height of the callout text box. For the example to work, the shape must be a callout.

With ActiveDocument.Pages(1).Shapes(1).Callout
    If .DropType = msoCalloutDropCustom Then
        If .Drop < .Parent.Height / 2 Then
            .PresetDrop DropType:=msoCalloutDropTop
        Else
            .PresetDrop DropType:=msoCalloutDropBottom
        End If
    End If
End With