PowerPoint) (Shapes.AddCallout 方法

會建立無框線圖說文字。 會傳回代表新的圖說文字的 Shape 物件。

語法

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

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Type	必要	MsoCalloutType	圖說文字線的類型。
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

另請參閱

Shapes 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。