如何通过VBA将图表Y轴的月份名称设置为大写形式？

现有VBA代码生成的折线图中，分类轴（X轴）的月份显示为常规大小写格式（如Jan/24），需修改为全大写形式（如JAN/24）。以下是修改方案：

核心思路 #

Excel自带的日期数字格式无法直接生成全大写的月份文本，因此需要在设置完基础格式后，遍历所有刻度标签，将文本转为大写。

修改后的完整代码 #

Public Sub Macro1()

    '删除所有图表
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i

    '添加图表
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With

    '添加数据系列
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(45658, 45689, 45717, 45748, 45778, 45809)
        .Values = Array(1, 2, 3, 4, 5, 6)
    End With

    '设置分类轴格式并将月份转为大写
    With ActiveSheet.ChartObjects("myChart").Chart.Axes(xlCategory)
        .CategoryType = xlTimeScale
        .TickLabels.NumberFormat = "MMM/YY"
        '遍历刻度标签，转换为大写
        Dim tickLabel As TickLabel
        For Each tickLabel In .TickLabels
            tickLabel.Text = UCase(tickLabel.Text)
        Next tickLabel
    End With

End Sub

关键修改点 #

• 在设置完TickLabels.NumberFormat = "MMM/YY"后，新增循环遍历所有TickLabel对象，使用UCase()函数将每个标签文本转为全大写。
• 需确保VBA编辑器中已默认勾选Microsoft Excel Object Library（通常无需手动调整）。

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