PowerPoint VBA教程:DropType属性

返回到表示位置的值,标注线在该位置连到标注文本框。只读。MsoCalloutDropType 类型。

MsoCalloutDropType 可以是下列 MsoCalloutDropType 类型常数之一。
msoCalloutDropBottom
msoCalloutDropCenter
msoCalloutDropCustom
msoCalloutDropMixed
msoCalloutDropTop

expression.DropType

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

如果标注垂直距离的类型是 msoCalloutDropCustom,DropAutoAttach属性的值以及标注框与标注线源位置(该标注指向的位置)的相对关系被用于决定标注线连接到文本框的位置。

该属性为只读。使用PresetDrop方法设置该属性的值。

VBA示例

本示例通过检查来决定myDocument 中的第三个形状是否为带有自定义下沉的标注。如果是此种标注,编码用一或两个预设的下沉替换自定义下沉,这依赖于自定义垂直距离是否大于或小于标注文本框高度的一半。


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

上页:PowerPoint VBA教程:Drop属性 下页:PowerPoint VBA教程:Duration属性

PowerPoint VBA教程:DropType属性

PowerPoint VBA教程:Duration属性 PowerPoint VBA教程:EditingType属性
PowerPoint VBA教程:EffectInformation属性 PowerPoint VBA教程:EffectParameters属性
PowerPoint VBA教程:EffectType属性 PowerPoint VBA教程:EmailSubject属性
PowerPoint VBA教程:Embeddable属性 PowerPoint VBA教程:Embedded属性
PowerPoint VBA教程:Emboss属性 PowerPoint VBA教程:Encoding属性
PowerPoint VBA教程:End属性 PowerPoint VBA教程:EndArrowheadLength属性
PowerPoint VBA教程:EndArrowheadStyle属性 PowerPoint VBA教程:EndArrowheadWidth属性
PowerPoint VBA教程:EndConnected属性 PowerPoint VBA教程:EndConnectedShape属性
PowerPoint VBA教程:EndConnectionSite属性 PowerPoint VBA教程:EndingSlide属性
PowerPoint VBA教程:EntryEffect属性 PowerPoint VBA教程:EnvelopeVisible属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号