创建一个无边框的线形标注。返回一个代表新标注的 Shape 对象。
expression.AddCallout(Type, Left, Top, Width, Height)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Type 必选。MsoCalloutType 类型。标注线的类型。
MsoCalloutType 可以是下列 MsoCalloutType 类型常数之一。 |
msoCalloutOne 可水平或垂直的单段标注线。 |
msoCalloutTwo 可自由旋转的单段标注线。 |
msoCalloutThree两段标注线。 |
msoCalloutThree 三段标注线。 |
Left 必选。Single 类型。标注边界框左边缘相对于幻灯片左边缘的位置(以磅为单位)。
Top 必选。Single 类型。标注边界框上边缘相对于幻灯片上边缘的位置(以磅为单位)。
Width 必选。Single 类型。标注的边界框的宽度(以磅为单位)。
Height 必选。Single 类型。标注的边界框的高度(以磅为单位)。
通过使用 AddShape 方法可插入多种不同的标注。
本示例在 myDocument 中添加一个无边框标注(此标注带有一个可自由旋转的单段标注线),并且将标注角度设为 30 度。
Sub NewCallout()
Dim sldOne As Slide
Set sldOne = ActivePresentation.Slides(1)
sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _
Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30
End Sub