Fatal编程技术网
  • excel/
  • 如何将新形状添加到Excel VBA中的现有形状组？

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

excel vba

如何将新形状添加到Excel VBA中的现有形状组？,excel,vba,grouping,shapes,Excel,Vba,Grouping,Shapes,我需要帮助向现有形状组添加新形状。假设我在使用以下代码遍历Activesheet上的所有形状之后创建了一个shapegroup Set ShapeGroupX = ActiveSheet.Shapes.Range((x)).Group 现在，如果我使用Activesheet.shapes.AddShape添加一个新形状，并给它一个唯一的名称，我如何将此形状添加到ShapeGroupX中，而不必解组ShapeGroupX并再次分组？我想您需要先解组然后再解组组： Sub MakeBigGroup

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

Set ShapeGroupX = ActiveSheet.Shapes.Range((x)).Group
现在，如果我使用Activesheet.shapes.AddShape添加一个新形状，并给它一个唯一的名称，我如何将此形状添加到ShapeGroupX中，而不必解组ShapeGroupX并再次分组？

我想您需要先解组
然后再解组
组
：


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



对不起，我误解了这个问题。我删除了我的答案。阿法克和我可能是错的，但你必须重新分组