PowerPoint VBA教程:Group方法

将指定区域中的形状形成一组。以单个 Shape对象返回分组后的形状。

expression.Group

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

说明

由于一组形状作为单个形状处理,所以创建和分解形状组将改变 Shapes集合中的项目数,而且由于影响集合中的项目,还会改变部分项目的索引号。

VBA示例

本示例将两个形状添加到myDocument,组合两个新形状,为该组设置填充,旋转该组并将其发送到绘图层后。


Set myDocument = ActivePresentation.Slides(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

上页:PowerPoint VBA教程:GotoSlide方法 下页:PowerPoint VBA教程:Help方法

PowerPoint VBA教程:Group方法

PowerPoint VBA教程:Help方法 PowerPoint VBA教程:ImportFromFile方法
PowerPoint VBA教程:IncrementBrightness方法 PowerPoint VBA教程:IncrementContrast方法
PowerPoint VBA教程:IncrementLeft方法 PowerPoint VBA教程:IncrementOffsetX方法
PowerPoint VBA教程:IncrementOffsetY方法 PowerPoint VBA教程:IncrementRotation方法
PowerPoint VBA教程:IncrementRotationX方法 PowerPoint VBA教程:IncrementRotationY方法
PowerPoint VBA教程:IncrementTop方法 PowerPoint VBA教程:Insert方法
PowerPoint VBA教程:InsertAfter方法 PowerPoint VBA教程:InsertBefore方法
PowerPoint VBA教程:InsertDateTime方法 PowerPoint VBA教程:InsertFromFile方法
PowerPoint VBA教程:InsertSlideNumber方法 PowerPoint VBA教程:InsertSymbol方法
PowerPoint VBA教程:Item方法 PowerPoint VBA教程:LargeScroll方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号