共用方式為

Word) (CanvasShapes.AddTextbox 方法

  • 發行項

將文字方塊新增至繪圖畫布中。 會傳回 Shape 物件，代表 [文字] 方塊。

語法

運算式。AddTextbox (Orientation、 Left、 Top、 Width、 Height)

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

參數

名稱 必要/選用 資料類型 描述
Orientation 必要 MsoTextOrientation 文字的方向。 MsoTextOrientation 常數的一些可能無法使用，視您所選取或安裝的語言支援 (例如 US English) 而定。
Left 必要 Single 文字方塊左邊界的位置 (以點為測量單位)
Top 必要 Single 文字方塊上邊界的位置 (以點為測量單位)
Width 必要 Single 文字方塊的寬度 (以點為測量單位)
Height 必要 Single 文字方塊的高度 (以點為測量單位)

範例

本範例會將文字方塊新增至新文件中的畫布。

Sub NewCanvasTextbox() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 'Create a new document and add a drawing canvas 
 Set docNew = Documents.Add 
 Set shpCanvas = docNew.Shapes.AddCanvas _ 
 (Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a text box to the drawing canvas 
 shpCanvas.CanvasItems.AddTextbox _ 
 Orientation:=msoTextOrientationHorizontal, _ 
 Left:=1, Top:=1, Width:=100, Height:=100 
End Sub

支援和意見反應

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