选中组内形状时，如何获取其所属Group的名称并选中该Group

当选中组内单个形状时，利用形状对象的ParentGroup属性就能直接定位到所属分组，进而获取分组名称，同时实现选中分组的需求。

核心实现步骤 #

• 先判断当前选中的是单个形状（避免多选或非形状选中的情况）
• 通过selectedShape.ParentGroup获取所属分组对象，判断是否存在（排除未分组的形状）
• 若存在分组，直接读取其Name属性，并执行选中操作

完整代码示例 #

Sub SelectShapeParentGroup()
    Dim selShape As Shape
    Dim groupShape As Shape
    
    ' 校验选中对象是否为单个形状
    If TypeName(Selection) = "ShapeRange" And Selection.Count = 1 Then
        Set selShape = Selection(1)
        
        ' 检查该形状是否属于分组
        Set groupShape = selShape.ParentGroup
        If Not groupShape Is Nothing Then
            ' 获取分组名称并选中分组
            Debug.Print "所属分组名称：" & groupShape.Name
            groupShape.Select
        Else
            MsgBox "当前选中的形状不属于任何分组"
        End If
    Else
        MsgBox "请选中单个形状对象"
    End If
End Sub

补充说明 #

• ParentGroup是Shape对象的内置属性，直接指向其所属的顶层分组，无需遍历工作表所有形状，效率更高
• 如果需要在用户选中形状时自动触发该逻辑，可以将代码放到工作表的SelectionChange事件中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    SelectShapeParentGroup
End Sub

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