如何向 Excel VBA 中的现有形状组添加新形状？

Question

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

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

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

Answer 1

我想你需要 Ungroup 然后是 Group:

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

How do I add a new shape to an Existing Shape Group in Excel VBA?