全部显示

AddCanvas 方法

在文档中添加画布。返回代表该画布的 Shape 对象，并将其添加到 Shapes 集合。

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