Shapes.AddCallout 方法 (PowerPoint)

创建一个无边框的线形标注。 返回一个 Shape 对象，该对象表示新标注。

语法

expression。 AddCallout( _Type_, _Left_, _Top_, _Width_, _Height_ )

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
Type	必需	MsoCalloutType	标注线的类型。
Left	必需	Single	标注边界框左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top	必需	Single	标注边界框上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width	必需	Single	标注边界框的宽度（以磅为单位）。
Height	必需	Single	标注的边界框的高度（以磅为单位）。

返回值

Shape

说明

使用 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

另请参阅

Shapes 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。