PowerPoint VBA教程:GroupShapes集合对象

Shapes (Shape)
GroupShapes (Shape)

代表形状组中的单个形状。每个形状由一个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

上页:PowerPoint VBA教程:FreeformBuilder对象 下页:PowerPoint VBA教程:HeaderFooter对象

PowerPoint VBA教程:GroupShapes集合对象

PowerPoint VBA教程:HeaderFooter对象 PowerPoint VBA教程:HeadersFooters对象
PowerPoint VBA教程:Hyperlink对象 PowerPoint VBA教程:Hyperlinks集合对象
PowerPoint VBA教程:LineFormat对象 PowerPoint VBA教程:LinkFormat对象
PowerPoint VBA教程:Master对象 PowerPoint VBA教程:MotionEffect对象
PowerPoint VBA教程:NamedSlideShow对象 PowerPoint VBA教程:NamedSlideShows集合对象
PowerPoint VBA教程:ObjectVerbs对象 PowerPoint VBA教程:OLEFormat对象
PowerPoint VBA教程:Options对象 PowerPoint VBA教程:PageSetup对象
PowerPoint VBA教程:Pane对象 PowerPoint VBA教程:Panes集合对象
PowerPoint VBA教程:ParagraphFormat对象 PowerPoint VBA教程:PictureFormat对象
PowerPoint VBA教程:PlaceholderFormat对象 PowerPoint VBA教程:Placeholders集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号