Excel VBA如何检测用户选中的折线图数据系列？

在Excel VBA中，Series对象确实没有IsSelected属性，你可以通过ActiveChart.Selection获取当前选中的图表元素，再判断是否为数据系列，具体实现如下：

方法1：直接获取单个选中的系列 #

如果用户仅选中了单个数据系列，可直接获取对象并修改颜色：

Dim selectedSeries As Series
On Error Resume Next ' 处理未选中系列的报错情况
Set selectedSeries = ch.Selection
On Error GoTo 0

If Not selectedSeries Is Nothing Then
    selectedSeries.Format.Line.ForeColor.RGB = lblSelectedColor.BackColor
End If

• 借助On Error Resume Next避免用户未选中任何系列时触发报错。
• 确认选中对象为Series类型后，直接修改其线条颜色。

方法2：兼容多系列选中的场景 #

如果需要支持同时选中多个系列的情况，可通过类型判断遍历处理：

Dim selectedObj As Object
Set selectedObj = ch.Selection

If TypeName(selectedObj) = "Series" Then
    ' 单个系列被选中
    selectedObj.Format.Line.ForeColor.RGB = lblSelectedColor.BackColor
ElseIf TypeName(selectedObj) = "ChartObjects" Then
    ' 多个对象被选中，筛选出系列类型
    Dim item As Object
    For Each item In selectedObj
        If TypeName(item) = "Series" Then
            item.Format.Line.ForeColor.RGB = lblSelectedColor.BackColor
        End If
    Next
End If

• 用TypeName判断选中对象的类型，区分单个/多个选中元素的场景。
• 遍历过程中只对Series类型的对象执行颜色修改操作。

适配你原有遍历逻辑的版本 #

如果要保留你原本的循环遍历结构，可改成如下写法：

Dim intSeriesCount As Integer
Dim selectedSeries As Series
On Error Resume Next
Set selectedSeries = ch.Selection
On Error GoTo 0

If Not selectedSeries Is Nothing Then
    For intSeriesCount = 1 To ch.SeriesCollection.Count
        If ch.SeriesCollection(intSeriesCount) Is selectedSeries Then
            ch.SeriesCollection(intSeriesCount).Format.Line.ForeColor.RGB = lblSelectedColor.BackColor
            Exit For ' 找到目标系列后退出循环，提升效率
        End If
    Next
End If

注意事项 #

• 确保变量ch已正确指向当前活动图表（如Set ch = ActiveChart）。
• 若用户选中的是图表其他元素（如坐标轴、图例），代码会自动跳过修改逻辑，避免报错。

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