expression.PresetDrop(DropType)
expression Required. An expression that returns one of the objects in the Applies To list.
DropType Required MsoCalloutDropType. The starting position of the callout line relative to the text bounding box.
MsoCalloutDropType can be one of these MsoCalloutDropType constants. |
msoCalloutDropBottom |
msoCalloutDropCenter |
msoCalloutDropCustom |
msoCalloutDropMixed Not used with this method. |
msoCalloutDropTop |
Example
This example specifies that the callout line attach to the top of the text bounding box for the first shape in the active publication. For the example to work, the shape must be a callout.
ActiveDocument.Pages(1).Shapes(1).Callout _
.PresetDrop DropType:=msoCalloutDropTop
This example toggles between two preset drops for the first shape one in the active publication. For the example to work, the shape must be a callout.
With ActiveDocument.Pages(1).Shapes(1).Callout
Select Case .DropType
Case msoCalloutDropTop
.PresetDrop DropType:=msoCalloutDropBottom
Case msoCalloutDropBottom
.PresetDrop DropType:=msoCalloutDropTop
End Select
End With