如何在VBA中设置Excel图表图例文本的颜色？

你之前的代码仅修改了数据系列的填充/标记颜色，要修改图例的文本颜色，需要直接操作图表的Legend对象及其LegendEntries集合，以下是可行的实现代码：

Sub SetLegendTextColor()
    Dim sheet As Worksheet
    Dim shp As Shape
    Dim chrt As Chart
    Dim legendEntry As LegendEntry
    Dim targetLegendName As String
    
    ' 替换为你要修改的图例名称
    targetLegendName = "目标图例名称"
    ' 指定目标工作表，可根据实际修改
    Set sheet = ThisWorkbook.Sheets("Sheet1")
    
    For Each shp In sheet.Shapes
        If shp.HasChart Then
            Set chrt = shp.Chart
            ' 先判断图表是否包含图例，避免运行错误
            If chrt.HasLegend Then
                For Each legendEntry In chrt.Legend.LegendEntries
                    ' 不区分大小写匹配图例名称
                    If LCase(legendEntry.Name) = LCase(targetLegendName) Then
                        ' 设置图例文本的字体颜色（示例为绿色）
                        legendEntry.Font.Color = RGB(0, 176, 80)
                        
                        ' 可选：如果需要同步修改图例标记的颜色，取消下面注释
                        ' chrt.SeriesCollection(legendEntry.Index).Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
                    End If
                Next legendEntry
            End If
        End If
    Next shp
End Sub

关键说明： #

• LegendEntries集合中的每个元素对应图表里的一个图例条目，通过Font.Color属性直接控制文本颜色
• 利用legendEntry.Index可以关联到对应的SeriesCollection项，实现图例标记和文本颜色的同步修改
• 加入chrt.HasLegend判断，防止无图例的图表触发运行时错误

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