如何用VBA获取Excel中选中形状的选择顺序名称？

这个问题问得好！Excel自带的Selection.ShapeRange并不会保留你选中形状的顺序（它默认按创建顺序或Z轴层级排序），不过我们可以借助剪贴板的小技巧来提取这个顺序，下面是具体实现方案：

实现思路 #

当你选中多个形状并执行复制操作时，Office会将这些形状的信息以XML格式存入剪贴板，其中就包含了你选中形状的先后顺序。我们可以编写VBA代码读取剪贴板中的XML内容，解析出每个形状的名称并按选中顺序输出。

VBA代码实现 #

Sub GetSelectedShapesOrder()
    Dim objData As DataObject
    Dim xmlContent As String
    Dim shapeNameSegments As Variant
    Dim i As Integer
    
    ' 先判断是否选中了形状
    If TypeName(Selection) <> "ShapeRange" Then
        MsgBox "请选中至少一个形状再执行！", vbExclamation
        Exit Sub
    End If
    
    ' 复制选中的形状到剪贴板
    Selection.Copy
    
    ' 读取剪贴板中的XML内容
    Set objData = New DataObject
    objData.GetFromClipboard
    xmlContent = objData.GetText
    
    ' 解析XML提取形状名称（基于Office Art的XML结构）
    shapeNameSegments = Split(xmlContent, "<v:shape id=""_x0000_s")
    Debug.Print "选中顺序的形状名称："
    
    For i = 1 To UBound(shapeNameSegments)
        Dim namePart As String
        ' 截取名称片段
        namePart = Mid(shapeNameSegments(i), InStr(shapeNameSegments(i), "name=""") + 6)
        namePart = Left(namePart, InStr(namePart, """") - 1)
        
        ' 输出到VBA立即窗口
        Debug.Print i & ". " & namePart
    Next i
    
    ' 清理资源（可选）
    objData.Clear
    Set objData = Nothing
End Sub

使用步骤 #

1. 打开Excel文件，按下Alt + F11打开VBA编辑器
2. 插入一个新模块，将上述代码粘贴进去
3. 返回Excel工作表，按你需要的顺序选中多个形状
4. 执行这个宏，然后打开VBA编辑器的立即窗口（快捷键Ctrl + G），就能看到按选中顺序排列的形状名称了

补充说明 #

• 这个方法依赖Office剪贴板的XML格式，在Excel 2016及以后的主流版本中都能正常工作
• 如果你的形状名称包含特殊字符，可能需要微调解析逻辑，但常规命名的形状都能准确提取
• 若不想修改剪贴板内容，可以使用Windows API直接获取选择顺序，但代码会复杂很多，上述方法是最简洁高效的方案

内容的提问来源于stack exchange，提问作者Sharat V Chandrasekhar