DrawingObjects类Group属性获取报错及分组坐标原理问询

运行TestForGroups子程序时，“Symbol Editor”工作表始终存在两个未分组形状，因此总会执行Case Is > 1分支。其中语句Selection.Name = "testThis"可正常执行，但执行Set grpShapes = Selection.Group时出现运行时错误1004：无法获取DrawingObjects类的Group属性。

关联代码 #

Sub TestForGroups()
    Dim shps As Shapes: Set shps = Sheets("Symbol Editor").Shapes
    Dim grpShapes As GroupShapes 
    Dim TN As String
    
    Select Case shps.Count
        Case 0
            TN = TypeName(Selection)
            MsgBox "There are no shapes ('" & TN & "').", vbInformation
         Case 1
             shps.SelectAll
             TN = TypeName(Selection)
             If TN = "GroupObject" Then
                Selection.Ungroup
                MsgBox "Ungrouped a group ('" & TN & "').", vbInformation
             Else
                MsgBox "One shape selected ('" & TN & "').", vbInformation
             End If
             Debug.Print TypeName(Selection)
         Case Is > 1
             shps.SelectAll
             TN = TypeName(Selection)
             If TypeName(Selection) = "DrawingObjects" Then
                Selection.Group            
                MsgBox "Grouped all shapes ('" & TN & "').", vbInformation
                Selection.Name = "testThis"
                Set grpShapes = Selection.Group 
             End If
    End Select    
        
End Sub

核心疑问 #

1. 为何能执行Selection.Group完成分组，却无法通过Set grpShapes = Selection.Group捕获分组后的对象？
2. 单个形状拥有独立定位坐标，分组后可整体选中并同步移动，该机制是如何实现的？是否是选择对象拥有独立坐标，各形状据此调整自身坐标？

疑问1：无法捕获Group对象的原因 #

Selection.Group方法的作用是将当前选中的多个未分组形状（此时Selection类型为DrawingObjects）合并为一个GroupObject，并且该方法本身会返回这个新创建的分组对象。

你代码里的问题在于：先执行Selection.Group完成分组，此时Selection已经从DrawingObjects变成了单个GroupObject，而GroupObject并没有Group属性——你试图对一个已经是分组的对象调用Group方法，自然触发1004错误。

正确的写法是直接捕获Group方法的返回值，不需要分开执行：

' 替换原来的Selection.Group和后续的Set语句
Set grpShapes = Selection.Group
MsgBox "Grouped all shapes ('" & TypeName(grpShapes) & "').", vbInformation
grpShapes.Name = "testThis"

疑问2：分组形状的坐标同步机制 #

Excel的分组机制并非“选择对象拥有独立坐标，形状据此调整”，实际逻辑是：

• 每个形状始终保留自己的绝对坐标（以工作表左上角为原点的位置参数）。
• 分组操作会创建一个GroupObject容器，这个容器有自己的坐标、尺寸属性，同时记录组内所有形状的相对位置关系。
• 当你移动、缩放分组容器时，Excel会自动计算容器的位移/缩放比例，然后批量更新组内每个形状的绝对坐标，确保它们之间的相对位置不变。
• 选中分组时，你操作的是这个容器，所有操作都会被转换为组内形状的批量属性修改，最终呈现出整体同步的效果。

简单来说，分组是一个逻辑层面的“关联容器”，它的作用是把多个形状的操作绑定在一起，而非改变形状本身的坐标存储方式。

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