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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。