Excel VBA教程:GroupShapes集合对象

   
Shapes (Shape)
GroupShapes (Shape)

代表成组的图形中的单个图形。每个图形由一个Shape对象表示。使用该对象的Item方法可以不必先将它们拆开就可以对组中的单个图形进行操作。

GroupShapes集合的用法

使用GroupItems属性可返回 GroupShapes集合。使用 GroupItems(index)(此处 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

上页:Excel VBA教程:Gridlines对象 下页:Excel VBA教程:HiLoLines对象

Excel VBA教程:GroupShapes集合对象

Excel VBA教程:HiLoLines对象 Excel VBA教程:HPageBreak对象
Excel VBA教程:HPageBreaks集合对象 Excel VBA教程:Hyperlink对象
Excel VBA教程:Hyperlinks集合 Excel VBA教程:Interior对象
Excel VBA教程:IRtdServer对象 Excel VBA教程:IRTDUpdateEvent对象
Excel VBA教程:LeaderLines对象 Excel VBA教程:Legend对象
Excel VBA教程:LegendEntries集合对象 Excel VBA教程:LegendEntry对象
Excel VBA教程:LegendKey对象 Excel VBA教程:LineFormat对象
Excel VBA教程:LinkFormat对象 Excel VBA教程:获取有关 Macintosh 关键字的“帮助”
Excel VBA教程:Name对象 Excel VBA教程:Names集合对象
Excel VBA教程:ODBCError对象 Excel VBA教程:ODBCErrors集合对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号