Drop 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Drop 属性

发布于 2019-08-07 字数 1017 浏览 931 评论 0

对具有明确的垂直距离值设置的标注,本属性以磅为单位返回文本框的边框与标注线连接到文本框上的位置之间的垂直距离。此距离从文本框的顶端开始计算,除非 AutoAttach 属性为 True,且文本框位于标注线起点(标注线所指向的位置)的左边,这种情况下垂直距离从文本框的底端开始计算。Single 类型,只读。


说明


使用 CustomDrop 方法可设置本属性的值。


仅当标注有明确的垂直距离值设置,即 DropType 属性的值为 msoCalloutDropCustom 时,本属性的值才能准确地反映标注线连接到文本框的位置。


示例


本示例根据自定义的垂直距离值是大于还是小于标注文本框高度的一半,将 myDocument 上第一个图形的自定义垂直距离值替换为两个预置垂直距离值之一。为使本示例正常运行,第一个图形必须为标注。


Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
If .DropType = msoCalloutDropCustom Then
If .Drop < .Parent.Height / 2 Then
.PresetDrop msoCalloutDropTop
Else
.PresetDrop msoCalloutDropBottom
End If
End If
End With

上一篇:DrilledDown 属性

下一篇:DropDownLines 属性

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!