共用方式為


PowerPoint) (ShapeRange.GroupItems 屬性

會傳回代表指定之群組中的個別圖形的 GroupShapes 物件。 使用 GroupShapes 物件的 Item 方法可傳回單一圖案從群組中。 唯讀。

語法

expressionGroupItems

表達 代表 ShapeRange 物件的 變數。

傳回值

GroupShapes

範例

本範例會將三個三角形新增至 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

另請參閱

ShapeRange 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應