Excel如何将条形图所有条形一次性设置为同一种颜色

方法1：单图表快速修改（无需宏/无权限限制） #

操作步骤：

• 点击目标条形图任意位置选中图表，顶部功能区会自动出现「图表工具」相关选项卡
• 切换到「格式」选项卡，点击左上角图表元素下拉菜单，选择对应条形的数据系列（通常命名为「系列X」，选中后全图所有条形会同步出现选中标记）
• 直接点击「形状填充」按钮选择目标绿色即可一次性修改该图表内所有条形颜色

方法2：多图表批量修改（VBA宏方案） #

如果需要同时修改多个图表的条形颜色，可使用如下VBA脚本操作，仅需图表格式编辑权限即可运行，不受数据表锁定限制：

Sub 批量设置条形图颜色()
    Dim targetChart As ChartObject
    Dim ser As Series
    ' 遍历所有选中的图表
    For Each targetChart In Selection
        If TypeName(targetChart) = "ChartObject" Then
            ' 遍历图表内所有数据系列
            For Each ser In targetChart.Chart.SeriesCollection
                ' 设置为标准绿色，可自行修改RGB数值调整颜色
                ser.Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
            Next ser
        End If
    Next targetChart
End Sub

操作步骤：

• 按住Ctrl键点选所有需要修改的条形图，完成多选
• 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称选择「插入」-「模块」
• 将上述代码粘贴到模块编辑窗口，按F5运行即可完成所有选中图表的条形颜色批量修改

提示：如果工作簿禁用宏，仅需使用方法1逐一处理每个图表，操作耗时仅为逐个点击条形修改的1/10不到

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