Word VBA教程:CustomDrop方法

设置文本范围限制框边到文本框标注线的垂直距离(磅值)。此距离从文本框的顶边计算,但当 AutoAttach属性为 True 且文本框在标注线起点(标注所指位置)的左侧时例外,此时的距离从文本框底部开始计算。

expression.CustomDrop(Drop)

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

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

说明

如果已使用PresetDrop方法设置指定标注线的垂直距离,则需在使用 CustomDrop方法前使用PresetDrop msoCalloutDropCustom 语句,以使自定义生效。

VBA示例

本示例删除活动文档中第一个图形预设的垂直距离,将自定义垂直距离设为 14 磅,并指定该值总是从顶端开始。第一个图形必须是标注,以使该示例生效。


Dim docActive As Document
Set docActive = ActiveDocument

With docActive.Shapes(1).Callout
    .PresetDrop msoCalloutDropCustom
    .CustomDrop 14
    .AutoAttach = False
End With

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号