Word VBA教程:DropType属性

返回值表示标注线在何处附加于标注文本框。MsoCalloutDropType,只读。

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

expression.DropType

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

如果标注的垂直距离类型是 msoCalloutDropCustom,则标注线附加于文本框的位置的是由DropAutoAttach属性值以及标注文本框与标注线起点(标注所指位置)的相对位置三者决定的。

此属性为只读。可用PresetDrop方法设置此属性的值。

VBA示例

本示例检查并判定活动文档中的第三个图形是否是自定义垂直距离的标注。如果是,则根据此距离值是大于还是小于标注文本框的一半高度,将自定义垂直距离替换为两个预设值之一。


Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(3)
    If .Type = msoCallout Then
        With .Callout
            If .DropType = msoCalloutDropCustom Then
                If .Drop < .Parent.Height / 2 Then
                    .PresetDrop msoCalloutDropTop
                Else
                    .PresetDrop msoCalloutDropBottom
                End If
            End If
        End With
    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号