PowerPoint VBA教程:AddCallout方法

创建一个无边框的线形标注。返回一个代表新标注的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方法可插入多种不同的标注。

VBA示例

本示例在 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

上页:PowerPoint VBA教程:AddBaseline方法 下页:PowerPoint VBA教程:AddComment方法

PowerPoint VBA教程:AddCallout方法

PowerPoint VBA教程:AddComment方法 PowerPoint VBA教程:AddConnector方法
PowerPoint VBA教程:AddCurve方法 PowerPoint VBA教程:AddDiagram方法
PowerPoint VBA教程:AddEffect方法 PowerPoint VBA教程:AddLabel方法
PowerPoint VBA教程:AddLine方法 PowerPoint VBA教程:AddMediaObject方法
PowerPoint VBA教程:AddNode方法 PowerPoint VBA教程:AddNodes方法
PowerPoint VBA教程:AddOLEObject方法 PowerPoint VBA教程:AddPeriods方法
PowerPoint VBA教程:AddPicture方法 PowerPoint VBA教程:AddPlaceholder方法
PowerPoint VBA教程:AddPolyline方法 PowerPoint VBA教程:AddShape方法
PowerPoint VBA教程:AddTable方法 PowerPoint VBA教程:AddTextbox方法
PowerPoint VBA教程:AddTextEffect方法 PowerPoint VBA教程:AddTitle方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号