指定是将标注线条连接到标注文本框的顶部、底部或中心,还是将它连接到距文本框的顶部或底部为指定距离的某个点上。
语法
表达式。PresetDrop (DropType)
表达 一个代表 CalloutFormat 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| DropType | 必需 | MsoCalloutDropType | 标注线的起点相对于文本框的位置。 |
备注
DropType 参数值可以是以下 MsoCalloutDropType 常量之一。 通过 msoCalloutDropCustom 将导致代码失败。
| msoCalloutDropBottom |
| msoCalloutDropCenter |
| msoCalloutDropCustom |
| msoCalloutDropMixed |
| msoCalloutDropTop |
示例
本示例指定在 myDocument 上将标注行添加到第一个形状的文本边框的顶端。 为了使本示例能正常运行,该形状必须是一个标注。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Callout.PresetDrop msoCalloutDropTop
本示例将 myDocument 中第一个形状在两个预置垂直距离之间进行切换。 为了使本示例能正常运行,该形状必须是一个标注。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).Callout
If .DropType = msoCalloutDropTop Then
.PresetDrop msoCalloutDropBottom
ElseIf .DropType = msoCalloutDropBottom Then
.PresetDrop msoCalloutDropTop
End If
End With
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。