Excel VBA：编写支持单/多图表选中的通用代码求助

原代码的核心问题是逻辑判断错误：当选中单个工作表图表（ChartObject）时，ActiveChart不为空，代码会进入提示“选择多个图表”的分支，而非处理该单个图表，导致单个选中场景失效。

以下是修正后的代码，可同时兼容单个/多个图表选中的情况：

Sub ProcessSelectedCharts()
    Dim obj As Object
    Dim targetChart As Chart
    
    ' 处理独立图表工作表被选中的场景
    If TypeName(ActiveSheet) = "Chart" Then
        Set targetChart = ActiveSheet
        Call AnotherMacro(targetChart)
    ' 处理单个工作表图表（ChartObject）被选中的场景
    ElseIf TypeName(Selection) = "ChartObject" Then
        Set targetChart = Selection.Chart
        Call AnotherMacro(targetChart)
    ' 处理选中单元格区域的提示场景
    ElseIf TypeName(Selection) = "Range" Then
        MsgBox "请选中至少一个图表"
    ' 处理多个对象（含ChartObject）被选中的场景
    Else
        For Each obj In Selection
            If TypeName(obj) = "ChartObject" Then
                Set targetChart = obj.Chart
                Call AnotherMacro(targetChart)
            End If
        Next obj
    End If
End Sub

代码逻辑说明： #

• 优先判断当前激活的是否为独立图表工作表（Chart），若为是则直接处理该图表
• 若选中单个工作表图表（ChartObject），直接获取其关联的Chart对象并调用目标宏
• 若选中的是单元格区域，弹出提示引导用户选择图表
• 其他场景（如多个ChartObject混合选中），遍历选中集合，筛选出所有ChartObject并逐个处理

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