CustomDrop Method
Sets the vertical distance (in points) from the edge of the text bounding box to the place where the callout line attaches to the text box. This distance is measured from the top of the text box unless the AutoAttach property is set to True and the text box is to the left of the origin of the callout line (the place that the callout points to). In this case the drop distance is measured from the bottom of the text box.
expression.CustomDrop(Drop)
expression Required. An expression that returns a CalloutFormat object.
Drop Required Single. The drop distance, in points.
Example
This example 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 three must be a callout.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Callout
.CustomDrop 14
.AutoAttach = False
End With