expression.Drop
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").
Use the CustomDrop method to set the value of this property.
The value of this property accurately reflects the position of the callout line attachment to the text box only if the callout has an explicitly set drop value
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