Share via

CustomDrop Method [Publisher 2003 VBA Language Reference]

  • Article

Sets the vertical distance from the edge of the text bounding box to the place where the callout line attaches to the text box.

expression.CustomDrop(Drop)

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

Drop  Required Variant. The drop distance. Numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").

Remarks

The drop distance is normally measured from the top of the text box. However, if the AutoAttach property is set to True and the text box is to the left of the origin of the callout line (the place to which the callout points), the drop distance is measured from the bottom of the text box.

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, the third shape in the active publication must be a callout.

With ActiveDocument.Pages(1).Shapes(3).Callout
    .CustomDrop Drop:=14
    .AutoAttach = False
End With

Applies to | CalloutFormat Object