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