共用方式為


Shapes.AddCallout 方法 (Word)

將無邊框線條圖說文字新增至繪圖畫布中。

語法

運算式AddCallout (TypeLeftTopWidthHeight)

需要 expression。 代表 Shapes 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Type 必要 MsoCalloutType 圖說文字類型。
Left 必要 Single 圖說文字周框方塊左邊緣的位置,以 為單位。
Top 必要 Single 會指定圖說文字之週框方塊的上邊界的位置 (以點為單位)
Width 必要 Single 會指定圖說文字之週框方塊的寬度 (以點為單位)
Height 必要 Single 會指定圖說文字之週框方塊的高度 (以點為單位)

傳回值

Shape

註解

您可以使用 AddShape 方法來插入更多種類的圖說文字,例如氣球和雲端。

範例

本範例會將圖說文字新增至新建立的繪圖畫布中。

Sub NewCanvasCallout() 
 Dim shpCanvas As Shape 
 
 'Add drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=150, Top:=150, Width:=200, Height:=300) 
 
 'Add callout to the drawing canvas 
 shpCanvas.CanvasItems.AddCallout _ 
 Type:=msoCalloutTwo, Left:=100, _ 
 Top:=40, Width:=150, Height:=75 
End Sub

另請參閱

Shapes 集合物件

支援和意見反應

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