VBA选中嵌套形状组内子形状组报错的解决方法

当形状（包括子形状组）被纳入更高层级的分组后，不会直接出现在工作表的顶层Shapes集合中，只有未被任何分组包含的顶层形状/顶层分组，才会被ActiveSheet.Shapes直接枚举。
你可以直接选中最底层的单个形状，是Excel做的特殊兼容处理，但中间层级的子分组不会被顶层集合识别，直接按名称调用就会触发“组不存在”的报错。所有嵌套子元素的信息，实际存储在每个分组对象自带的GroupItems属性中，该属性是一个集合，包含当前分组直接下属的所有子元素——子元素可以是单个形状，也可以是下一层级的子分组。Excel执行取消组合操作时，本质就是读取对应分组的GroupItems集合，把里面的元素提升到上一层级的形状集合中。

通过递归遍历所有层级的GroupItems集合，就可以定位到任意深度的嵌套子分组，定位后直接调用Select方法即可选中，不需要取消上层分组。
首先写通用递归查找函数：

' 递归遍历所有层级分组，查找指定名称的形状/子组
Function FindNestedShape(searchScope As Object, targetName As String) As Shape
    Dim item As Shape
    For Each item In searchScope
        ' 匹配到目标对象直接返回
        If item.Name = targetName Then
            Set FindNestedShape = item
            Exit Function
        End If
        ' 如果当前对象是分组，递归遍历它的子元素集合
        If item.Type = msoGroup Then
            Dim res As Shape
            Set res = FindNestedShape(item.GroupItems, targetName)
            If Not res Is Nothing Then
                Set FindNestedShape = res
                Exit Function
            End If
        End If
    Next
End Function

调用方法示例，对应创建完masterGroup后选中subGroup1的场景：

Sub TestSelectSubGroup()
    ' 执行原有创建分组的逻辑
    Call test
    
    Dim targetGroup As Shape
    ' 从工作表顶层形状集合开始查找
    Set targetGroup = FindNestedShape(ActiveSheet.Shapes, "subName1")
    
    If Not targetGroup Is Nothing Then
        ' 选中目标子组，后续可直接对其做格式修改、位置调整等操作
        targetGroup.Select
        targetGroup.Fill.ForeColor.RGB = RGB(0, 176, 240)
    End If
End Sub

• ActiveSheet.Shapes.Range(Array("名称"))的写法仅能查找顶层Shapes集合内的元素，无法定位嵌套在分组内的子组
• GroupItems仅包含当前分组的直接子元素，不会自动枚举更深层级的内容，多层嵌套场景必须通过递归逐层查找
• 该方法支持查找任意深度的嵌套元素，既可以找中间层级的子组，也可以找最底层的单个形状，不需要修改原有分组结构

内容的提问来源于stack exchange，提问作者Igor Micadei