返回介绍

DropType 属性

发布于 2019-09-29 10:07:37 字数 1050 浏览 1083 评论 0 收藏 0

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

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

expression.DropType

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

说明

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

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

示例

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

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文