返回一个 CanvasShapes 对象,该对象代表画布上图形的集合。
expression.CanvasItems
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