Word VBA教程:PresetDrop方法

指定将标注线连接在标注文本框上的什么位置。可为文本框的顶部、底部、中间或距离文本框上下边界指定距离的一点。

expression.PresetDrop(DropType)

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

 DropType  MsoCalloutDropType,必需。相对于文本边界框的标注线起始位置。如果将此参数指定为 msoCalloutDropCustom,则由DropAutoAttach属性值以及标注文本框与标注点(标注所指向的位置)的相对位置来决定将标注线连接到文本框上的什么位置。

MsoCalloutDropType 可以是下列 MsoCalloutDropType 常量之一:
msoCalloutDropCenter
msoCalloutDropMixed
msoCalloutDropBottom
msoCalloutDropCustom
msoCalloutDropTop

VBA示例

本示例将活动文档中的第一个图形的标注线连接在文本边界框的顶部。只有当第一个图形是标注时,本示例才会生效。


ActiveDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop

本示例将在切换活动文档中第一个图形的两个预设垂直距离。只有当第一个图形是标注时,本示例才会生效。


With ActiveDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropTop Then
        .PresetDrop msoCalloutDropBottom
    ElseIf .DropType = msoCalloutDropBottom Then
        .PresetDrop msoCalloutDropTop
    End If
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号