PowerPoint VBA教程:CustomDrop方法

以磅为单位设置从文本框边界到标注线连接文本框位置的垂直距离。该距离通常从文本框顶端测量,但当 AutoAttach属性值设为 True 且文本框位于标注线源位置(该标注所指向的位置)的左侧时,该垂直距离从文本框底端测量。

expression.CustomDrop(Drop)

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

Drop  必选。Single 类型。垂直距离,以磅为单位。

VBA示例

本示例将自定义垂直距离设为 14 磅,并指定该垂直距离总是从顶端测量。要使本示例执行,第三个形状必须是标注。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Callout
    .CustomDrop 14
    .AutoAttach = False
End With

上页:PowerPoint VBA教程:CreateNewDocument方法 下页:PowerPoint VBA教程:CustomLength方法

PowerPoint VBA教程:CustomDrop方法

PowerPoint VBA教程:CustomLength方法 PowerPoint VBA教程:Cut方法
PowerPoint VBA教程:Delete方法 PowerPoint VBA教程:DeleteText方法
PowerPoint VBA教程:DiscardConflict Method PowerPoint VBA教程:Distribute方法
PowerPoint VBA教程:DoVerb方法 PowerPoint VBA教程:DrawLine方法
PowerPoint VBA教程:Duplicate方法 PowerPoint VBA教程:EndConnect方法
PowerPoint VBA教程:EndDisconnect方法 PowerPoint VBA教程:EndNamedShow方法
PowerPoint VBA教程:EndReview方法 PowerPoint VBA教程:EraseDrawing方法
PowerPoint VBA教程:Exit方法 PowerPoint VBA教程:Export方法
PowerPoint VBA教程:Find方法 PowerPoint VBA教程:FindBySlideID方法
PowerPoint VBA教程:FindFirstAnimationFor方法 PowerPoint VBA教程:FindFirstAnimationForClick方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号