Excel VBA教程:Drop属性

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

说明

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

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

Excel VBA教程:Drop属性·示例

本示例根据自定义的垂直距离值是大于还是小于标注文本框高度的一半,将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

上页:Excel VBA教程:DrilledDown属性 下页:Excel VBA教程:DropDownLines属性

Excel VBA教程:Drop属性

Excel VBA教程:DropDownLines属性 Excel VBA教程:DropLines属性
Excel VBA教程:DropType属性 Excel VBA教程:EditDirectlyInCell属性
Excel VBA教程:EditingType属性 Excel VBA教程:EditWebPage属性
Excel VBA教程:Elevation属性 Excel VBA教程:EmailSubject属性
Excel VBA教程:EmbedSmartTags属性 Excel VBA教程:EmptyCellReferences属性
Excel VBA教程:EnableAnimations属性 Excel VBA教程:EnableAutoComplete属性
Excel VBA教程:EnableAutoFilter属性 Excel VBA教程:EnableAutoRecover属性
Excel VBA教程:EnableCalculation属性 Excel VBA教程:EnableCancelKey属性
Excel VBA教程:Enabled属性 Excel VBA教程:EnableDataValueEditing属性
Excel VBA教程:EnableDrilldown属性 Excel VBA教程:EnableEditing属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号