Shapes.AddCanvas 方法 (Word)

將繪圖畫布加入至文件。 會傳回代表繪圖畫布的 Shape 物件，並將其新增至 Shapes 集合。

語法

expression。 AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

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

參數

名稱	必要/選用	資料類型	描述
Left	必要	Single	相對於錨點的繪圖畫布左邊緣位置， 以點為單位。
Top	必要	Single	相對於錨點之繪圖畫布上邊緣的位置，以 點為單位。
Width	必要	Single	繪圖畫布的寬度， 以點為單位。
Height	必要	Single	繪圖畫布的高度， 以點為單位。
Anchor	選用	Variant	Range物件，表示畫布所系結的文字。 如果指定定位點，則錨點位於開頭的錨定的範圍內的第一個段落。 如果省略此引數，就會自動選取錨定範圍，而且畫布的位置會相對於頁面的上邊緣和左邊緣。

傳回值

圖形

範例

下列範例會將繪圖畫布加入至新文件，並格式化繪圖畫布，讓它與文字一起內置。然後，將兩個圖案加入至此畫布，並格式化填滿及線條屬性。

Sub AddInlineCanvas() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add a drawing canvas to the new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=70, Height:=70) 
 shpCanvas.WrapFormat.Type = wdWrapInline 
 
 'Add shapes to drawing canvas 
 With shpCanvas.CanvasItems 
 .AddShape msoShapeHeart, Left:=10, _ 
 Top:=10, Width:=50, Height:=60 
 .AddLine BeginX:=0, BeginY:=0, _ 
 EndX:=70, EndY:=70 
 End With 
 With shpCanvas 
 .CanvasItems(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 .CanvasItems(2).Line _ 
 .EndArrowheadStyle = msoArrowheadTriangle 
 End With 
End Sub

另請參閱

Shapes 集合物件

支援和意見反應

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