如何修改数据透视图表中数据标签的文字颜色

你的代码核心问题是设置数据标签颜色的顺序错误——你先尝试修改DataLabels的格式，但此时数据标签还未被添加到图表中（.SetElement (msoElementDataLabelCenter)是后续执行的），导致之前的格式设置无效。另外，使用主题色可能受文档主题影响，直接用RGB值设置白色更可靠。

修正后的代码如下：

On Error Resume Next
Set pt = ws.PivotTables(1)
On Error GoTo 0
If Not pt Is Nothing Then
    Set shp = ws.Shapes.AddChart2(216, xlBarClustered)
    With shp.Chart
        .SetSourceData pt.TableRange2
        .ShowAllFieldButtons = False
        ' 设置系列填充色
        .SeriesCollection("No").Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        .SeriesCollection("Yes").Format.Fill.ForeColor.RGB = RGB(146, 208, 80)
        ' 先添加数据标签（居中显示）
        .SetElement (msoElementDataLabelCenter)
        ' 设置"No"系列数据标签为白色
        .SeriesCollection("No").DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
        ' 可选：如果需要"Yes"系列也设为白色，添加下面一行
        '.SeriesCollection("Yes").DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Axes(xlValue).MaximumScale = 1
    End With
    Set pt = Nothing
    Set shp = Nothing ' 释放对象
End If

关键修正点： #

• 调整顺序：先调用.SetElement (msoElementDataLabelCenter)添加数据标签，再修改其颜色格式，确保操作的是已存在的标签对象。
• 改用RGB(255,255,255)直接设置白色，避免文档主题对msoThemeColorBackground1的影响（如果主题背景不是白色，会导致颜色不符合预期）。
• 移除了Chart对象内不必要的On Error Resume Next，避免掩盖系列名称错误等问题。

如果仍有问题，检查以下几点：

• 确认透视表中确实存在名为"No"和"Yes"的系列（大小写敏感）。
• 确保图表创建后系列数据正确加载，可临时添加.Debug.Print .SeriesCollection.Count查看系列数量。

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