CanvasItems 属性

返回一个 CanvasShapes 对象，该对象代表画布上图形的集合。

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

示例

本示例在活动文档中创建一个新的画布，并在其上添加一个圆圈。

Sub NewCanvasShape()
    Dim shpCanvas As Shape
    Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _
        Left:=100, Top:=75, Width:=150, Height:=200)
    shpCanvas.CanvasItems.AddShape _
        Type:=msoShapeOval, Top:=25, _
        Left:=25, Width:=150, Height:=150
End Sub