vba html 教程 pdf,Word VBA教程：CanvasShapes集合

多种对象

多种对象

该集合代表画布上的图形。

使用 CanvasShapes集合

使用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集合中单独的图形，其中 index 为名称或索引序号。下列示例设置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属性。