如何反转Excel图表数据标签字体颜色？实现颜色转换的VBA方案

以下VBA代码基于Tim Williams的方案，可根据标签数值更改数据标签的字体颜色：

Sub FlipLabelFontColor()
    Dim k As Long
    Dim j As Long
    With ActiveChart
        For k = 1 To .SeriesCollection.Count
            For j = 1 To .SeriesCollection(k).Points.Count
                With .SeriesCollection(k).Points(j).DataLabel
                    .Font.Color = IIf(Val(.Text) < 0, vbRed, vbGreen)
                End With
            Next j
        Next k
    End With
End Sub

如果需要根据现有字体颜色进行转换（例如将白色RGB(255,255,255)转为黑色RGB(0,0,0)），可以参考以下完善后的VBA代码：

Sub InvertLabelFontColor()
    Dim k As Long
    Dim j As Long
    With ActiveChart
        For k = 1 To .SeriesCollection.Count
            For j = 1 To .SeriesCollection(k).Points.Count
                With .SeriesCollection(k).Points(j).DataLabel
                    ' 判断当前字体颜色为白色时，转为黑色
                    If .Font.Color = RGB(255, 255, 255) Then
                        .Font.Color = RGB(0, 0, 0)
                    ' 可选：如果需要黑色转白色，可添加反向判断
                    ' ElseIf .Font.Color = RGB(0, 0, 0) Then
                    '     .Font.Color = RGB(255, 255, 255)
                    ' End If
                End With
            Next j
        Next k
    End With
End Sub

扩展说明 #

如果需要实现通用的颜色反转（即对任意RGB颜色取反，比如RGB(r,g,b)转为RGB(255-r,255-g,255-b)），可以修改代码为：

Sub UniversalInvertLabelFontColor()
    Dim k As Long, j As Long
    Dim r As Long, g As Long, b As Long
    With ActiveChart
        For k = 1 To .SeriesCollection.Count
            For j = 1 To .SeriesCollection(k).Points.Count
                With .SeriesCollection(k).Points(j).DataLabel
                    ' 提取当前颜色的RGB分量
                    r = .Font.Color Mod 256
                    g = (.Font.Color \ 256) Mod 256
                    b = (.Font.Color \ 65536) Mod 256
                    ' 计算反转后的RGB值
                    .Font.Color = RGB(255 - r, 255 - g, 255 - b)
                End With
            Next j
        Next k
    End With
End Sub

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