如何在Excel VBA图表中同时引用两个调色板

核心思路 #

通过ThemeColorScheme对象加载指定的主题调色板文件（.thmx），直接提取该调色板中的msoThemeColorAccent1至msoThemeColorAccent6颜色，循环应用到图表的多个系列上，无需手动切换调色板。

步骤与代码示例 #

1. 加载目标主题调色板：使用Application.LoadThemeColorScheme方法加载指定路径的.thmx主题文件。
2. 循环应用颜色：遍历图表系列，循环使用调色板的6种Accent颜色，超过6个系列时重复循环配色。

Sub ApplyCustomThemeColorsToChart()
    Dim targetChart As Chart
    Dim customColorScheme As ThemeColorScheme
    Dim totalSeries As Integer
    Dim seriesIndex As Integer
    Dim colorLoopIndex As Integer
    
    ' 指定要操作的图表（可替换为Worksheets("Sheet1").ChartObjects("Chart 1").Chart）
    Set targetChart = ActiveChart
    ' 加载自定义/目标主题调色板（替换为你的.thmx文件路径）
    Set customColorScheme = Application.LoadThemeColorScheme("C:\Program Files\Microsoft Office\Root\Document Themes 16\Theme Colors\Orange.thmx")
    
    totalSeries = targetChart.SeriesCollection.Count
    
    For seriesIndex = 1 To totalSeries
        ' 循环切换Accent1到Accent6
        colorLoopIndex = ((seriesIndex - 1) Mod 6) + 1
        ' 应用线条颜色
        targetChart.SeriesCollection(seriesIndex).Format.Line.ForeColor.RGB = _
            customColorScheme.Colors(msoThemeColorAccent1 + colorLoopIndex - 1).RGB
        ' 可选：设置数据标记填充颜色
        ' targetChart.SeriesCollection(seriesIndex).Format.Fill.ForeColor.RGB = _
        '     customColorScheme.Colors(msoThemeColorAccent1 + colorLoopIndex - 1).RGB
    Next seriesIndex
End Sub

关键说明 #

• 主题文件路径：Office默认主题调色板通常位于C:\Program Files\Microsoft Office\Root\Document Themes 16\Theme Colors\，包含Blue、Orange、Green等预设主题文件；自定义主题直接使用其保存的.thmx文件完整路径即可。
• 颜色索引对应：msoThemeColorAccent1到msoThemeColorAccent6的枚举值依次为5到10，代码中通过msoThemeColorAccent1 + colorLoopIndex -1实现循环调用。
• 无需手动切换：代码加载目标调色板后，直接提取颜色应用，不会修改当前文档的默认主题设置。

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