CalloutFormat.DropType Property
Returns a value that indicates where the callout line attaches to the callout text box. Read-only.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property DropType As MsoCalloutDropType
Get
'Usage
Dim instance As CalloutFormat
Dim value As MsoCalloutDropType
value = instance.DropType
MsoCalloutDropType DropType { get; }
Property Value
Type: Microsoft.Office.Core.MsoCalloutDropType
MsoCalloutDropType
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(MsoCalloutDropType) method to set the value of this property.
The value returned by the DropType property can be one of these MsoCalloutDropType constants.
msoCalloutDropBottom |
msoCalloutDropCenter |
msoCalloutDropCustom |
msoCalloutDropMixed |
msoCalloutDropTop |
Examples
This example checks to determine whether shape three on myDocument 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.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.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