大众计算机学习网

专门提供各种电脑教程

ppt vba之GroupShapes形状集合对象

Admin | 2013-5-19 9:41:29 | 被阅次数 | 6374

  GroupShapes集合对象:代表形状组中的单个形状。

  每个形状由一个 Shape 对象代表。

  对本对象使用Item方法,就可以使用形状组中的单个形状而无须对它们取消组合。

  如何使用 Groupshapes 集合

  使用 GroupItems 属性返回 GroupShapes 集合。

  使用 GroupItems(index) 返回 GroupShapes 集合中的单个形状,其中 index 是组合形状中单个形状的数目。

  以下示例向 myDocument 中添加三个三角形,将它们组合并设置整个组的颜色,然后只更改第二个三角形的颜色。

Set myDocument = ActivePresentation.Slides(1)

  With myDocument.Shapes.AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "shpOne"

  .AddShape(msoShapeIsoscelesTriangle, 150, _
        10, 100, 100).Name = "shpTwo"

  .AddShape(msoShapeIsoscelesTriangle, 300, _
        10, 100, 100).Name = "shpThree"

  With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble

  End With
End With