PowerPoint VBA教程:Drop属性

对于显式设置了垂直距离的标注,该属性返回从文本框边缘到标注线连接位置的垂直距离(以磅为单位)。该距离通常从文本框顶端测量,但当 AutoAttach属性值设为 True 且文本框位于标注线源位置(该标注所指向的位置)的左侧时,该垂直距离从文本框底端测量。只读。Single 类型。

说明

使用CustomDrop方法设置该属性值。

只有在标注明确地设置了垂直距离,即DropType属性的值为 msoCalloutDropCustom 时,此项属性值才会准确地反映连在文本框上的标注线的位置。

VBA示例

本示例用一或两个预设的下沉替换myDocument 中第一个形状的自定义下沉,这依赖于自定义垂直距离是否大于或小于标注文本框高度的一半。要使本示例执行,第一个形状必须是标注。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropCustom Then
        If .Drop < .Parent.Height / 2 Then
            .PresetDrop msoCalloutDropTop
        Else
            .PresetDrop msoCalloutDropBottom
        End If
    End If
End With

上页:PowerPoint VBA教程:DisplaySlideMiniature属性 下页:PowerPoint VBA教程:DropType属性

PowerPoint VBA教程:Drop属性

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号