如何在VBA中调用调色板完整色彩实现图表系列成对配色？

问题核心 #

Excel自动为图表系列分配的是主题调色板中的颜色（即「页面布局→主题→颜色」选中的调色板），这类颜色并非传统的RGB值或ColorIndex，直接读取MarkerForegroundColor会返回-1，ColorIndex会返回2，无法直接复用。需要通过主题颜色专属属性来获取和应用。

解决方案 #

使用Series.Format.Fill.ForeColor.ObjectThemeColor获取主题颜色索引，搭配TintAndShade获取颜色的深浅调整值，即可完整复用当前主题的配色。同时按「每2个系列一组」的逻辑循环应用主题调色板的颜色。

完整实现代码 #

Sub SetSeriesThemeColors()
    Dim cht As Chart
    Dim srs As Series
    Dim xData As Range, yData As Range
    Dim themeColorIndex As MsoThemeColorIndex
    Dim seriesCount As Integer
    Dim i As Integer
    
    ' 绑定目标图表（此处用ActiveChart，可根据需求修改为指定图表）
    Set cht = ActiveChart
    
    ' 删除现有所有系列
    Do Until cht.SeriesCollection.Count = 0
        cht.SeriesCollection(1).Delete
    Loop
    
    ' 示例：添加4个数据系列（可根据实际数据范围修改）
    ' 系列1
    Set xData = Range("A1:A5")
    Set yData = Range("B1:B5")
    Set srs = cht.SeriesCollection.NewSeries
    srs.XValues = xData
    srs.Values = yData
    
    ' 系列2
    Set xData = Range("A1:A5")
    Set yData = Range("C1:C5")
    Set srs = cht.SeriesCollection.NewSeries
    srs.XValues = xData
    srs.Values = yData
    
    ' 系列3
    Set xData = Range("A1:A5")
    Set yData = Range("D1:D5")
    Set srs = cht.SeriesCollection.NewSeries
    srs.XValues = xData
    srs.Values = yData
    
    ' 系列4
    Set xData = Range("A1:A5")
    Set yData = Range("E1:E5")
    Set srs = cht.SeriesCollection.NewSeries
    srs.XValues = xData
    srs.Values = yData
    
    ' 按每2个系列一组，应用主题调色板颜色
    seriesCount = cht.SeriesCollection.Count
    For i = 1 To seriesCount
        ' 计算当前系列所属的组（每2个一组）
        groupIndex = ((i - 1) \ 2) + 1
        ' 对应主题调色板的强调色（从Accent1开始循环）
        themeColorIndex = IIf(groupIndex <= 6, msoThemeColorAccent1 + groupIndex - 1, msoThemeColorAccent1 + (groupIndex - 1) Mod 6)
        
        With cht.SeriesCollection(i)
            ' 设置填充颜色为主题色
            .Format.Fill.ForeColor.ObjectThemeColor = themeColorIndex
            .Format.Fill.ForeColor.TintAndShade = 0 ' 使用主题原色，可调整为正负值生成深浅色
            
            ' 设置标记、线条颜色与填充色关联
            .MarkerForegroundColorIndex = xlColorIndexAutomatic
            .MarkerBackgroundColorIndex = xlColorIndexAutomatic
            .Format.Line.ForeColor.ObjectThemeColor = themeColorIndex
        End With
    Next i
End Sub

关键说明 #

1. 主题颜色索引：msoThemeColorAccent1到msoThemeColorAccent6对应主题调色板中的6个强调色，超出6组后会自动循环复用。
2. TintAndShade：值为0时是主题原色，正数生成浅色变体，负数生成深色变体，可用于区分同组内的两个系列（比如同组系列分别用0和0.3的Tint值）。
3. 自动颜色关联：设置MarkerForegroundColorIndex = xlColorIndexAutomatic后，标记颜色会自动跟随系列的主题填充色，无需手动设置RGB值。

扩展：读取现有系列的主题颜色 #

如果需要提取已存在系列的主题配色参数，可使用以下代码：

Sub GetSeriesThemeColor()
    Dim srs As Series
    Set srs = ActiveChart.SeriesCollection(1)
    
    ' 输出主题颜色索引和色调值到立即窗口
    Debug.Print "主题颜色索引：", srs.Format.Fill.ForeColor.ObjectThemeColor
    Debug.Print "色调调整值：", srs.Format.Fill.ForeColor.TintAndShade
End Sub

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