通过

CanvasShapes 对象 (Word)

  • 项目

使用 Shape 或ShapeRange 对象的 CanvasItems 属性可返回 CanvasShapes 集合。

备注

若要向绘图画布添加形状，请使用 CanvasShapes 集合的以下方法： AddCallout、 AddConnector、 AddCurve、 AddLabel、 AddLine、 AddPicture、 AddPolyline、 AddShape、 AddTextbox、 AddTextEffect 或 BuildFreeform。 以下示例先将画布添加到活动文档中，然后将三个形状添加到画布上。

Sub AddCanvasShapes() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShapes As CanvasShapes 
 Dim shpCnvItem As Shape 
 
 'Adds a new canvas to the document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=50, Height:=75) 
 Set shpCanvasShapes = shpCanvas.CanvasItems 
 
 'Adds shapes to the CanvasShapes collection 
 With shpCanvasShapes 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=50, Height:=50 
 .AddShape Type:=msoShapeOval, _ 
 Left:=5, Top:=5, Width:=40, Height:=40 
 .AddShape Type:=msoShapeIsoscelesTriangle, _ 
 Left:=0, Top:=25, Width:=50, Height:=50 
 End With 
End Sub

使用 CanvasItems (索引) ，其中 index 是名称或索引号，以返回 CanvasShapes 集合中的单个形状。 以下示例设置 Line 和 Fill 属性并垂直翻转画布中的第三个形状。

Sub CanvasShapeThree() 
 With ActiveDocument.Shapes(1).CanvasItems(3) 
 .Line.ForeColor.RGB = RGB(50, 0, 255) 
 .Fill.ForeColor.RGB = RGB(50, 0, 255) 
 .Flip msoFlipVertical 
 End With 
End Sub

每个形状在被创建时即获得一个默认名称。 例如，如果在文档中添加三个不同形状，其名称可能是“矩形 2”、“文本框 3”和“椭圆 4”。 使用 Name 属性可引用默认名称或为形状分配更有意义的名称。

方法

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。