VBA遍历Excel图表系列并根据单元格条件设置颜色咨询

你现有代码触发报错主要有两个核心问题：

• Format.Line前缺少With ser绑定当前遍历的系列对象，导致VBA找不到对应的操作对象
• ForeColor.ObjectThemeColor是用来赋值Office主题色编号的属性，不能直接接收RGB值，RGB颜色需要赋值给ForeColor.RGB属性

修正后完整代码 #

Dim cht As Chart
Set cht = ActiveSheet.ChartObjects("Chart 1").Chart

' 遍历图表所有系列设置线条格式
Dim ser As Series
Dim matchRow As Long
Dim colorFlag As String
Dim rcode As Integer
Dim gcode As Integer
Dim bcode As Integer

For Each ser In cht.SeriesCollection
    ' 匹配当前系列名称在K列的行号，找不到则跳过当前系列避免报错
    On Error Resume Next
    matchRow = WorksheetFunction.Match(ser.Name, ActiveSheet.Range("K:K"), 0)
    On Error GoTo 0
    
    If matchRow > 0 Then
        ' 读取K列右侧L列的颜色标识
        colorFlag = UCase(ActiveSheet.Range("L" & matchRow).Value)
        
        ' 根据标识匹配RGB值，可自行扩展更多规则
        Select Case colorFlag
            Case "A" ' 标识A对应蓝色
                rcode = 0
                gcode = 0
                bcode = 255
            Case "B" ' 标识B对应红色
                rcode = 255
                gcode = 0
                bcode = 0
            Case "C" ' 标识C对应绿色
                rcode = 0
                gcode = 255
                bcode = 0
            Case Else ' 无匹配标识用默认色
                rcode = 255
                gcode = 255
                bcode = 150
        End Select
        
        ' 绑定当前系列的线条属性设置格式
        With ser.Format.Line
            .Visible = msoTrue
            .ForeColor.RGB = RGB(rcode, gcode, bcode)
            .TintAndShade = 0
            .Brightness = 0
            .Transparency = 0
        End With
    End If
Next ser

逻辑说明 #

• 用Match方法查找系列名称在K列的位置，添加了错误处理逻辑，遇到K列不存在的系列名称时会自动跳过不会中断程序
• 颜色匹配用Select Case实现，比多层If语句更易维护，你可以根据自己的实际需求增删不同标识对应的RGB值
• 修复了原代码的对象绑定错误和RGB属性赋值错误，运行不会再报对象不匹配的问题

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