Shapes.AddCallout 方法 (Word)
將無邊框線條圖說文字新增至繪圖畫布中。
語法
運算式。AddCallout (Type、 Left、 Top、 Width、 Height)
需要 expression。 代表 Shapes 物件的 變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Type | 必要 | MsoCalloutType | 圖說文字類型。 |
Left | 必要 | Single | 圖說文字周框方塊左邊緣的位置,以 點為單位。 |
Top | 必要 | Single | 會指定圖說文字之週框方塊的上邊界的位置 (以點為單位) |
Width | 必要 | Single | 會指定圖說文字之週框方塊的寬度 (以點為單位) |
Height | 必要 | Single | 會指定圖說文字之週框方塊的高度 (以點為單位) |
傳回值
註解
您可以使用 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。