全部显示创建没有边框线的标注。返回一个 Shape 对象，该对象代表新建的标注。
expression.AddCallout(Type, Left, Top, Width, Height)
expression 必需。该表达式返回“应用于”列表中的对象之一。
Type MsoCalloutType 类型，必需。标注线的类型。
| MsoCalloutType 可为以下 MsoCalloutType 常量之一。 |
| msoCalloutOne 水平或垂直方向的单线段标注线。 |
| msoCalloutTwo 任意方向的单线段标注线。 |
| msoCalloutMixed |
| msoCalloutThree 两线段标注线。 |
| msoCalloutFour 三线段标注线。 |
Left Single 类型，必需。相对于文档的左上角，以磅为单位给出标注边框的左上角位置。
Top Single 类型，必需。相对于文档的左上角，以磅为单位给出标注边框的左上角位置。
Width Single 类型，必需。以磅为单位指定标注边框的宽度。
Height Single 类型，必需。以磅为单位指定标注边框的高度。
用 AddShape 方法可插入更多类型的标注。
本示例向 myDocument 添加带有任意方向单线段标注线的无边框标注，并将标注线的角度设置为 30 度。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddCallout(Type:=msoCalloutTwo, _
Left:=50, Top:=50, Width:=200, Height:=100) _
.Callout.Angle = msoCalloutAngle30