CustomDrop Method Example

This example cancels any preset drop that's been set for shape one in myDocument, sets the custom drop distance to 14 points, and specifies that the drop distance always be measured from the top. For the example to work, shape one must be a callout.

Set myDocument = ActiveDocument
With myDocument.Shapes(1).Callout
    .PresetDrop msoCalloutDropCustom
    .CustomDrop 14
    .AutoAttach = False
End With