DropType Property
Returns a value that indicates where the callout line attaches to the callout text box. Read-only MsoCalloutDropType.
| MsoCalloutDropType can be one of these MsoCalloutDropType constants. |
| msoCalloutDropCenter |
| msoCalloutDropMixed |
| msoCalloutDropBottom |
| msoCalloutDropCustom |
| msoCalloutDropTop |
expression.DropType
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
If the callout drop type is msoCalloutDropCustom, the values of the Drop and AutoAttach properties and the relative positions of the callout text box and callout line origin (the place that the callout points to) are used to determine where the callout line attaches to the text box.
This property is read-only. Use the PresetDrop method to set the value of this property.
Example
This example checks to determine whether the third shape on the active document is a callout with a custom drop. If it is, the code replaces the custom drop with one of two preset drops, depending on whether the custom drop value is greater than or less than half the height of the callout text box.
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(3)
If .Type = msoCallout Then
With .Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop msoCalloutDropTop
Else
.PresetDrop msoCalloutDropBottom
End If
End If
End With
End If
End With