# Excel 图表自动变色教程（基于控制单元格）

Excel 图表自动变色教程（基于控制单元格）

1. 背景

在"图表"工作表中，希望根据控制单元格数值自动改变图表颜色，实现如下效果：

数值 > 0 → 红色
数值 = 0 → 白色（或浅灰色）
数值 < 0 → 绿色

需要修改的图表元素包括：

折线
趋势线
数据标签
纵坐标刻度值
图表最外层轮廓

绘图区轮廓需要恢复为默认无边框 。

宏支持多图表、多控制单元格，但只操作"图表"工作表。

2. Excel 图表名称说明（用于 VBA 映射）

2.1 什么是图表名称

每个图表对象在 Excel 中都有一个内部名称（ChartObject.Name）。
默认名称如 图表 1、图表 2，可以通过 选择窗格 自定义。

2.2 如何修改图表名称

打开工作表 → 点击选中图表
菜单栏 → 开始 → 查找 & 选择 → 选择窗格 （或快捷键 Alt + F10）
右侧显示当前工作表的所有对象（图表、形状等）
找到对应图表 → 点击名称 → 修改为需要的名字，例如 蛋鸡利润、面粉价格
VBA 中即可通过该名称获取图表对象：

vba 复制代码

Set chObj = ws.ChartObjects("蛋鸡利润")

2.3 推荐规范

名称唯一且简短
名称与控制单元格一一对应
避免中文与空格混用（虽然可以识别，但建议统一规范）

3. 图表名称与控制单元格映射

图表名称	控制单元格
蛋鸡利润	P4
蛋鸡存栏	P12
蛋鸡价格	P20
生猪利润	K4
母猪存栏	K12
生猪价格	K20
玉米利润	F4
玉米开机	F12
玉米价格	F20
面粉价格	A4
面粉开机	A12
面粉利润	A20

4. VBA 代码示例

vba 复制代码

Sub 图表页_按指定单元格自动变色()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("图表")
    
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 图表名称 - 控制单元格映射
    dict.Add "蛋鸡利润", "P4"
    dict.Add "蛋鸡存栏", "P12"
    dict.Add "蛋鸡价格", "P20"
    dict.Add "生猪利润", "K4"
    dict.Add "母猪存栏", "K12"
    dict.Add "生猪价格", "K20"
    dict.Add "玉米利润", "F4"
    dict.Add "玉米开机", "F12"
    dict.Add "玉米价格", "F20"
    dict.Add "面粉价格", "A4"
    dict.Add "面粉开机", "A12"
    dict.Add "面粉利润", "A20"
    
    Dim chObj As ChartObject
    Dim ch As Chart
    Dim ser As Series
    Dim tl As Trendline
    Dim ctrlVal As Double
    Dim colorValue As Long
    Dim chName As Variant
    
    ' 遍历所有映射图表
    For Each chName In dict.Keys
        
        ' 获取图表对象
        On Error Resume Next
        Set chObj = ws.ChartObjects(chName)
        On Error GoTo 0
        If chObj Is Nothing Then GoTo NextChart
        
        ' 获取控制单元格数值
        ctrlVal = ws.Range(dict(chName)).Value
        
        ' 颜色判断
        If ctrlVal > 0 Then
            colorValue = RGB(255, 0, 0)       ' 红
        ElseIf ctrlVal = 0 Then
            colorValue = RGB(255, 255, 255)   ' 白
        Else
            colorValue = RGB(0, 176, 80)      ' 绿
        End If
        
        Set ch = chObj.Chart
        
        ' 1. 折线 / 趋势线 / 数据标签
        For Each ser In ch.SeriesCollection
            ser.Format.Line.ForeColor.RGB = colorValue
            ser.Format.Line.Weight = 2
            
            If ser.HasDataLabels Then
                ser.DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = colorValue
            End If
            
            If ser.Trendlines.Count > 0 Then
                For Each tl In ser.Trendlines
                    tl.Format.Line.ForeColor.RGB = colorValue
                    tl.Format.Line.Weight = 2
                Next tl
            End If
        Next ser
        
        ' 2. 纵坐标刻度值
        On Error Resume Next
        ch.Axes(xlValue).TickLabels.Font.Color = colorValue
        On Error GoTo 0
        
        ' 3. 图表最外层轮廓
        With ch.ChartArea.Format.Line
            .Visible = msoTrue
            .ForeColor.RGB = colorValue
            .Weight = 1.25
        End With
        
        ' 4. 绘图区轮廓恢复默认（无边框）
        With ch.PlotArea.Format.Line
            .Visible = msoFalse
        End With
        
NextChart:
        Set chObj = Nothing
    Next chName

End Sub

5. 使用步骤

打开 Excel → 按 Alt + F11 → 插入 → 模块
粘贴上述 VBA 代码
确保"图表"工作表每张图表名称与映射表一致
修改控制单元格数值
运行宏 图表页_按指定单元格自动变色

6. 注意事项

图表名称必须唯一且与字典对应
白色在白底下不可见，可使用浅灰色 RGB(200,200,200)
新增图表需在字典中添加名称与控制单元格
绘图区 PlotArea 默认无边框，宏会强制 .Visible = msoFalse