时间戳

首页 > 解决方案 > 如何在 Excel VBA 中将新形状添加到现有形状组？

excel - 如何在 Excel VBA 中将新形状添加到现有形状组？

问题描述

我需要帮助将新形状添加到现有形状组。假设我在使用以下代码遍历 Activesheet 上的所有形状后创建了一个 shapegroup。

Set ShapeGroupX = ActiveSheet.Shapes.Range((x)).Group

现在，如果我使用 Activesheet.shapes.AddShape 添加一个新形状并为其命名，如何将此形状添加到 ShapeGroupX 而无需取消对 ShapeGroupX 的分组并再次分组？

标签： excelvbagroupingshapes

解决方案

我认为您将需要Ungroup遵循Group：

Sub MakeBigGroup()
    With ActiveSheet.DrawingObjects
        .Ungroup
        .Group
     End With
End Sub

推荐阅读