如何区分Excel形状的字体自动颜色与手动设置的黑色

问题本质 #

常规通过Font.ColorIndex = xlColorIndexAutomatic判断字体自动配色的逻辑存在缺陷：手动将形状字体设置为固定纯黑（RGB值为0）时，ColorIndex属性同样会返回xlColorIndexAutomatic常量，无法区分两种状态。
这个问题的根源是ColorIndex是Excel早期版本的遗留属性，颜色映射精度不足，仅靠该属性无法覆盖所有颜色场景的判断。

准确判断逻辑 #

需要结合ThemeColor属性做联合校验，两种状态的属性差异如下：

• 字体为自动配色模式：ColorIndex返回xlColorIndexAutomatic，同时ThemeColor属性返回xlThemeColorDark1（值为1，对应主题默认文本色），字体颜色会跟随文档主题切换自动变化。
• 字体为手动设置固定纯黑：虽然ColorIndex同样返回xlColorIndexAutomatic，但ThemeColor属性返回xlThemeColorNone（值为0），字体颜色固定为纯黑，不会随主题变化。

可直接使用的代码 #

注意：Excel中Shapes集合的索引起始值为1，原示例代码中Shapes(0)的写法会触发运行时错误，以下代码已做修正：

Sub JudgeShapeFontAutoMode()
    Dim targetFont As Font
    Set targetFont = ActiveSheet.Shapes(1).TextFrame.Characters.Font
    
    If targetFont.ColorIndex = xlColorIndexAutomatic And targetFont.ThemeColor = xlThemeColorDark1 Then
        ' 此处编写字体为自动配色模式时的逻辑
        Debug.Print "字体颜色为自动模式"
    Else
        ' 此处编写字体为手动设置颜色（含手动设置纯黑场景）时的逻辑
        Debug.Print "字体颜色为手动设置"
    End If
End Sub

如果需要兼容Excel 2007及以上版本的新文本框架，也可以使用TextFrame2对象判断，逻辑完全一致：

Sub JudgeShapeFontAutoModeByTextFrame2()
    Dim targetFontColor As ColorFormat
    Set targetFontColor = ActiveSheet.Shapes(1).TextFrame2.TextRange.Font.Fill.ForeColor
    
    If targetFontColor.ObjectThemeColor = msoThemeColorDark1 Then
        ' 自动配色模式逻辑
        Debug.Print "字体颜色为自动模式"
    Else
        ' 手动设置颜色逻辑
        Debug.Print "字体颜色为手动设置"
    End If
End Sub

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