共用方式為


Excel) (GroupShapes 物件

代表群組圖案中的個別圖案。

註解

每個圖案是由 圖案 來表示 物件。 使用 項目 方法搭配這個物件,您可以使用單一圖案群組內不必 ungroup 它們。

範例

使用Shape物件的GroupItems屬性可傳回GroupShapes集合。

使用 GroupItems (索引) ,其中 index 是群組圖案內個別圖案的數目,可從 GroupShapes 集合傳回單一圖案。

下列範例會在 myDocument 中新增三個三角形、將其組成群組、設定整個群組的色彩,然後單獨變更第二個三角形的色彩。

Set myDocument = Worksheets(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

方法

屬性

另請參閱

支援和意見反應

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