Excel中簇状柱形图同簇柱体统一颜色的VBA方案问询

我尝试自动化设置Excel中的簇状柱形图格式，使同一簇内的所有柱体颜色一致。默认情况下，Excel按系列分配颜色，导致同一簇内的柱体颜色不同。

需求 #

• 更新数据值时不改变颜色、字体或标签。
• 确保指定簇内的所有柱体颜色一致（按簇而非系列分配）。
• 避免手动格式化（不想逐个点击柱体手动修改颜色）。

已尝试方法 #

• 更新值前手动格式化图表，但Excel仍会覆盖颜色设置。
• 使用VBA循环遍历系列并应用颜色，但无法正确按簇分组。
• 在线搜索并测试多种方法，但均无法实现所需格式。

是否存在可靠的VBA方法可以按簇而非系列控制颜色分配？或者Excel根本无法通过编程实现此功能？

以下是可实现按簇设置柱体颜色的VBA代码，同时满足所有需求：

Sub SetClusterColors()
    Dim cht As Chart
    Dim srs As Series
    Dim iCluster As Integer
    Dim iPoint As Integer
    Dim colorPalette As Variant
    
    ' 自定义颜色数组，可按需修改RGB值
    colorPalette = Array(RGB(255, 107, 107), RGB(163, 203, 238), RGB(161, 217, 155), _
                        RGB(255, 199, 95), RGB(217, 150, 217), RGB(168, 120, 110))
    
    ' 指定目标图表，默认取活动工作表第一个图表，可修改为对应名称/索引
    Set cht = ActiveSheet.ChartObjects(1).Chart
    
    ' 锁定图表区域格式，防止数据更新时覆盖设置
    cht.ChartArea.Format.Locked = True
    cht.PlotArea.Format.Locked = True
    
    ' 遍历每个簇（即每个类别）
    For iCluster = 1 To cht.SeriesCollection(1).Points.Count
        ' 遍历所有系列，给当前簇的柱体统一上色
        For Each srs In cht.SeriesCollection
            srs.Points(iCluster).Format.Fill.ForeColor.RGB = colorPalette((iCluster - 1) Mod UBound(colorPalette) + 1)
            ' 锁定单个柱体格式，避免数据更新时被修改
            srs.Points(iCluster).Format.Locked = True
        Next srs
    Next iCluster
    
    MsgBox "簇状柱形图颜色设置完成！", vbInformation
End Sub

代码说明 #

1. 颜色自定义：colorPalette数组可根据需求添加、删除或修改RGB颜色值。
2. 目标图表指定：若工作表有多个图表，可将ChartObjects(1)改为对应名称（如ChartObjects("销售图表")）或索引。
3. 格式锁定：通过Format.Locked = True锁定图表和柱体格式，确保更新数据时不会覆盖已设置的颜色、字体等样式。
4. 按簇着色逻辑：外层循环遍历每个簇，内层循环遍历所有系列，将同一簇的所有柱体设置为同一种颜色，通过取模运算循环使用颜色数组，避免颜色不足。

使用方法 #

1. 打开Excel，按下Alt + F11打开VBA编辑器。
2. 在目标工作表的代码模块中粘贴上述代码。
3. 返回Excel界面，按下Alt + F8，选择SetClusterColors执行即可。

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