PowerPoint VBA教程:GroupItems属性

返回一个代表指定组中单个形状的GroupShapes对象。使用 GroupShapes对象的Item方法从该组中返回单个形状。应用于代表分组形状的 Shape 或 ShapeRange对象。只读。

VBA示例

本示例向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教程:GridDistance属性 下页:PowerPoint VBA教程:HandoutMaster属性

PowerPoint VBA教程:GroupItems属性

PowerPoint VBA教程:HandoutMaster属性 PowerPoint VBA教程:HandoutOrder属性
PowerPoint VBA教程:HangingPunctuation属性 PowerPoint VBA教程:HasChildShapeRange属性
PowerPoint VBA教程:HasDiagram属性 PowerPoint VBA教程:HasDiagramNode属性
PowerPoint VBA教程:HasRevisionInfo属性 PowerPoint VBA教程:HasTable属性
PowerPoint VBA教程:HasText属性 PowerPoint VBA教程:HasTextFrame属性
PowerPoint VBA教程:HasTitle属性 PowerPoint VBA教程:HasTitleMaster属性
PowerPoint VBA教程:Header属性 PowerPoint VBA教程:HeadersFooters属性
PowerPoint VBA教程:Height属性 PowerPoint VBA教程:Hidden属性
PowerPoint VBA教程:HideWhileNotPlaying属性 PowerPoint VBA教程:HorizontalAnchor属性
PowerPoint VBA教程:HorizontalFlip属性 PowerPoint VBA教程:HTMLProject属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号