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 对象，表示画布绑定到的文本。 如果指定了 Anchor，锁定标记位于锁定区域第一段的开头。 如果省略该参数，将自动选定锁定区域，而画布将相对于页面的上边缘和左边缘进行定位。

返回值

型号

示例

以下示例在新文档中添加画布，然后在画布上添加两个图形，并设置填充和线条属性。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。