Excel VBA教程:PresetDrop方法

表示标注线是连接在标注文本框的顶端、底端还是中心,或者表示标注线是连接在距标注文本框的顶端有一定距离的位置上,还是距底端有一定距离的位置上。

expression.PresetDrop(DropType)

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

DropType  MsoCalloutDropType 类型,必需。标注线的起点相对于文本框的位置。

MsoCalloutDropType 可为以下 MsoCalloutDropType 常量之一。
msoCalloutDropBottom
msoCalloutDropCenter
msoCalloutDropCustom  Specifying msoCalloutDropCustom for this argument will cause your code to fail.
msoCalloutDropMixed
msoCalloutDropTop

Excel VBA教程:PresetDrop方法·示例

本示例使myDocument 中第一个图形的标注线连接到标注文本框的顶端。为使本示例正常运行,第一个图形必须是标注。


Set myDocument = Worksheets(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop

This example toggles between two preset drops for shape one onmyDocument 中第一个图形的预置标注线落差类型。为使本示例正常运行,第一个图形必须是标注。


Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
    If .DropType = msoCalloutDropTop Then
        .PresetDrop msoCalloutDropBottom
    ElseIf .DropType = msoCalloutDropBottom Then
        .PresetDrop msoCalloutDropTop
    End If
End With

上页:Excel VBA教程:Post方法 下页:Excel VBA教程:PresetGradient方法

Excel VBA教程:PresetDrop方法

Excel VBA教程:PresetGradient方法 Excel VBA教程:PresetTextured方法
Excel VBA教程:Previous方法 Excel VBA教程:PrevNode方法
Excel VBA教程:PrintOut方法 Excel VBA教程:PrintPreview方法
Excel VBA教程:Protect方法 Excel VBA教程:ProtectSharing方法
Excel VBA教程:Publish方法 Excel VBA教程:PurgeChangeHistoryNow方法
Excel VBA教程:Quit方法 Excel VBA教程:RadarGroups方法
Excel VBA教程:RangeFromPoint方法 Excel VBA教程:RecheckSmartTags方法
Excel VBA教程:Record方法 Excel VBA教程:RecordMacro方法
Excel VBA教程:Refresh方法 Excel VBA教程:RefreshAll方法
Excel VBA教程:RefreshData方法 Excel VBA教程:RefreshTable方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号