PowerPoint VBA教程:PresetDrop方法

指定标注线是连接到标注文本框的顶端、底端还是中心,或者连接到一个距文本框顶端或底端指定距离的点。

expression.PresetDrop(DropType)

expression  必选。该表达式返回一个 CalloutFormat对象。

DropType  必选。MsoCalloutDropType 类型。与文本边框相关的标注行起始点。

MsoCalloutDropType 可以是下列 MsoCalloutDropType 类型常数之一。
msoCalloutDropBottom
msoCalloutDropCenter
msoCalloutDropCustom 指定此常数将导致代码失败。 
msoCalloutDropMixed
msoCalloutDropTop

VBA示例

本示例指定在myDocument 上将标注行添加到第一个形状的文本边框的顶端。要使本示例可以执行,第一个形状必须是标注。


Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop

本示例在myDocument 上在第一个形状的两个预设下沉之间切换。要使本示例可以执行,第一个形状必须是标注。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropTop Then
        .PresetDrop msoCalloutDropBottom
    ElseIf .DropType = msoCalloutDropBottom Then
        .PresetDrop msoCalloutDropTop
    End If
End With

上页:PowerPoint VBA教程:PointsToScreenPixelsY方法 下页:PowerPoint VBA教程:PresetGradient方法

PowerPoint VBA教程:PresetDrop方法

PowerPoint VBA教程:PresetGradient方法 PowerPoint VBA教程:PresetTextured方法
PowerPoint VBA教程:Previous方法 PowerPoint VBA教程:PrevNode方法
PowerPoint VBA教程:PrintOut方法 PowerPoint VBA教程:Publish方法
PowerPoint VBA教程:Quit方法 PowerPoint VBA教程:Range方法
PowerPoint VBA教程:RangeFromPoint方法 PowerPoint VBA教程:Regroup方法
PowerPoint VBA教程:ReloadAs方法 PowerPoint VBA教程:Remove方法
PowerPoint VBA教程:RemoveBaseline方法 PowerPoint VBA教程:RemovePeriods方法
PowerPoint VBA教程:Replace方法 PowerPoint VBA教程:ReplaceNode方法
PowerPoint VBA教程:ReplyWithChanges方法 PowerPoint VBA教程:RerouteConnections方法
PowerPoint VBA教程:ResetRotation方法 PowerPoint VBA教程:ResetSlideTime方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号