如何通过VBA代码将图表X轴字体颜色从黑色改为红色？

你代码里有两个关键错误导致报错且无法实现需求，直接修正如下：

错误根源 #

1. 轴类型匹配错误：你要修改的是X轴字体颜色，但代码里用了xlValue（代表Y轴），X轴对应的枚举值是xlCategory
2. 属性调用路径错误：轴的标签字体不能直接通过.Format.TextFrame2.TextRange设置，必须通过轴的TickLabels属性来访问字体格式

修正后的完整代码 #

Public Sub Macro1()
    Dim i As Integer
    Dim targetChart As ChartObject
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i

    'Add a chart and store reference for easier use
    Set targetChart = ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=600, Height:=400)
    With targetChart.Chart
        .ChartArea.Format.TextFrame2.TextRange.Font.Size = 20
        
        'Add a serie（修复了X/Y值数量不匹配的问题）
        With .SeriesCollection.NewSeries
            .ChartType = xlLine
            .XValues = Array(1, 2, 3, 4)
            .Values = Array(150000, 20000, 80000, 120000)
        End With
        
        '设置X轴字体颜色为红色（核心修正部分）
        With .Axes(xlCategory).TickLabels.Font
            .Color = vbRed
            '也可以用TextFrame2的写法：
            '.Format.Fill.ForeColor.RGB = vbRed
        End With
        
        '如果需要同步设置Y轴颜色，取消下面注释
        'With .Axes(xlValue).TickLabels.Font
        '    .Color = vbRed
        'End With
    End With
End Sub

额外优化说明 #

• 新增targetChart变量存储图表对象，避免重复调用ActiveSheet.ChartObjects(1)，代码更稳定简洁
• 修复了原代码中XValues（5个元素）和Values（4个元素）数量不匹配的问题，避免运行时警告

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