Excel VBA教程:Group方法(ShapeRange对象)

组合指定的图形子集中的图形。将成组的图形作为单个 Shape对象返回。

expression.Group

expression   必需。该表达式返回一个 ShapeRange对象。

说明

因为将成组图形作为单个图形,因此将图形进行组合或取消成组图形的组合时,会更改 Shapes集合中的成员数目,并改变集合中受影响的图形之后的各成员的编号。

Excel VBA教程:Group方法(ShapeRange对象)·示例

本示例向myDocument 中添加两个图形,并组合这两个新图形,接着设置该组的填充格式并对该组进行旋转,然后将该组置于绘图层的后面。


Set myDocument = Worksheets(1)
With myDocument.Shapes
    .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"
    .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"
    With .Range(Array("shpOne", "shpTwo")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .Rotation = 45
        .ZOrder msoSendToBack
    End With
End With

上页:Excel VBA教程:Group方法 下页:Excel VBA教程:Heartbeat方法

Excel VBA教程:Group方法(ShapeRange对象)

Excel VBA教程:Heartbeat方法 Excel VBA教程:Help方法
Excel VBA教程:HighlightChangesOptions方法 Excel VBA教程:Import方法
Excel VBA教程:InchesToPoints方法 Excel VBA教程:IncrementBrightness方法
Excel VBA教程:IncrementContrast方法 Excel VBA教程:IncrementLeft方法
Excel VBA教程:IncrementOffsetX方法 Excel VBA教程:IncrementOffsetY方法
Excel VBA教程:IncrementRotation方法 Excel VBA教程:IncrementRotationX方法
Excel VBA教程:IncrementRotationY方法 Excel VBA教程:IncrementTop方法
Excel VBA教程:InputBox方法 Excel VBA教程:Insert方法
Excel VBA教程:InsertIndent方法 Excel VBA教程:Intersect方法
Excel VBA教程:Item方法 Excel VBA教程:Justify方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号