如何用C#（基于Microsoft.Office.Interop.Excel）设置Excel颜色主题

企业自定义配色方案会作为自定义颜色主题自动部署在所有用户机器的「页面布局>颜色>[自定义名称]」中。我开发的Excel加载项需要为用户选择的任意工作簿配置该主题（相当于工作簿的“设置”功能），希望通过C#代码实现以下需求：

1. 检测该自定义名称的颜色主题是否存在
2. 若存在则将目标工作簿设置为使用该主题

目前性能关键的Excel交互操作使用ExcelDNA，此类低频、非性能关键的任务主要使用Interop程序集，且已获取目标Workbook对象。同时想了解如何通过代码设置内置主题（比如“Grayscale”），并打算用try语句包裹代码以处理主题不存在的情况。

1. 检测主题是否存在 #

可以通过Excel Interop的Application.Themes集合尝试获取指定名称的主题，若主题不存在会抛出COMException，以此判断主题是否存在：

using xl = Microsoft.Office.Interop.Excel;

bool IsThemeExists(xl.Application excelApp, string themeName)
{
    try
    {
        // 尝试获取指定主题，不存在则抛出COM异常
        xl.Theme theme = excelApp.Themes[themeName];
        return theme != null;
    }
    catch (System.Runtime.InteropServices.COMException)
    {
        return false;
    }
}

2. 为工作簿应用指定主题 #

无论是内置主题还是自定义主题，都可以通过Workbook.ApplyTheme方法实现，该方法需要传入主题文件（.thmx）的路径，可通过Theme.Path属性获取：

示例：设置内置“Grayscale”主题

using xl = Microsoft.Office.Interop.Excel;

// 假设已获取目标工作簿对象
xl.Workbook wb = /* 你的工作簿对象获取逻辑 */;

try
{
    // 获取Grayscale主题对象
    xl.Theme grayscaleTheme = wb.Application.Themes["Grayscale"];
    // 将主题应用到当前工作簿
    wb.ApplyTheme(grayscaleTheme.Path);
}
catch (System.Runtime.InteropServices.COMException)
{
    // 处理主题不存在的异常
    MessageBox.Show("Grayscale主题不存在，无法应用");
}

示例：检测并应用自定义主题

using xl = Microsoft.Office.Interop.Excel;

xl.Workbook wb = /* 你的工作簿对象获取逻辑 */;
string customThemeName = "你的自定义主题名称";

try
{
    // 获取自定义主题对象
    xl.Theme customTheme = wb.Application.Themes[customThemeName];
    // 应用主题到工作簿
    wb.ApplyTheme(customTheme.Path);
}
catch (System.Runtime.InteropServices.COMException ex)
{
    // 处理自定义主题不存在的情况
    MessageBox.Show($"自定义主题「{customThemeName}」不存在：{ex.Message}");
}

关键说明 #

• Application.Themes集合包含了所有已安装的Excel主题（包括内置和自定义部署的）
• Workbook.ApplyTheme是官方推荐的主题应用方式，兼容性更好
• 因为是低频操作，使用Interop程序集完全满足性能需求

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