求助：PowerPoint VBA如何批量修改图表内所有文本为黑色

你遇到的ChartArea.Format.TextFrame2.TextRange报错，是因为图表区域的TextFrame2并非包含所有图表文本的统一容器，直接修改会因目标对象不存在或无内容触发"指定值超出范围"错误。要统一修改所有文本颜色，需要遍历图表的各个文本元素逐一处理，以下是完整实现代码：

Sub SetChartAllTextToBlack(activeShape As Shape)
    Dim chrt As Chart
    Dim ax As Axis
    Dim ser As Series
    Dim dl As DataLabels
    
    If activeShape.Type <> msoChart Then Exit Sub
    Set chrt = activeShape.Chart
    
    ' 修改图表标题颜色
    If chrt.HasTitle Then
        chrt.ChartTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    End If
    
    ' 修改图例颜色
    If chrt.HasLegend Then
        chrt.Legend.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    End If
    
    ' 修改所有坐标轴的标题和刻度标签颜色
    For Each ax In chrt.Axes
        ' 坐标轴标题
        If ax.HasTitle Then
            ax.AxisTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
        End If
        ' 坐标轴刻度标签
        ax.TickLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    Next ax
    
    ' 修改所有数据系列的数据标签颜色
    For Each ser In chrt.SeriesCollection
        If ser.HasDataLabels Then
            Set dl = ser.DataLabels
            dl.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
        End If
    Next ser
    
    ' 尝试修改图表区文本（若有），加错误处理避免报错
    On Error Resume Next
    chrt.ChartArea.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    On Error GoTo 0
End Sub

使用说明： #

在你的粘贴宏末尾，调用这个子过程即可，示例：

' 假设你已经完成粘贴，activeShape是粘贴后的图表形状
Set activeShape = ActiveWindow.Selection.ShapeRange(1)
Call SetChartAllTextToBlack(activeShape)

这段代码会覆盖图表中所有常见文本元素：标题、图例、坐标轴标题、刻度标签、数据标签，同时对图表区文本做了错误处理，避免触发报错。如果你的图表还有其他自定义文本框，可以额外遍历chrt.Shapes集合处理。

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