返回介绍

CustomDrop 方法

发布于 2019-09-29 09:55:02 字数 742 浏览 932 评论 0 收藏 0

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

expression.CustomDrop(Drop)

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

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

说明

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

示例

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

Dim docActive As Document

Set docActive = ActiveDocument

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

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

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

发布评论

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