Word VBA教程:AddCanvas方法

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

expression.AddCanvas(Left, Top, Width, Height, Anchor)

expression   必需。该表达式返回“应用于”列表中的一个对象。

Left  Single 类型,必需。画布左侧边缘相对于锁定标记的位置,以磅为单位。

Top  Single 类型,必需。画布上部边缘相对于锁定标记的位置,以磅为单位。

Width  Single 类型,必需。画布的宽度,以磅为单位。

Height  Single 类型,必需。画布的高度,以磅为单位。

Anchor  Variant 类型,可选。代表画布绑定文本的Range对象。如果指定 Anchor,则锁定标记将出现在锁定区域第一段的开头。如果省略该参数,将自动选定锁定区域,而画布将相对于页面的上部和左侧边缘进行定位。

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号