在文档中添加画布。返回代表该画布的 Shape 对象,并将其添加到 Shapes 集合。
expression.AddCanvas(Left, Top, Width, Height, Anchor)
expression 必需。该表达式返回“应用于”列表中的一个对象。
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