Excel VBA图表-如何设置行和列标签

Sub SetChartLabels()
    Dim ws As Worksheet
    Dim co As ChartObject
    Dim cht As Chart
    Dim rngData As Range
    Dim ax As Axis

    ' 获取工作表和图表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set co = ws.ChartObjects("Chart 1")
    Set cht = co.Chart

    ' 设置数据源范围，包括行和列标签
    Set rngData = ws.Range("A1:D5")
    cht.SetSourceData Source:=rngData

    ' 设置行标签
    Set ax = cht.Axes(xlCategory)
    ax.TickLabels.NumberFormat = "0" ' 设置标签格式为整数

    ' 设置列标签
    Set ax = cht.Axes(xlValue)
    ax.TickLabels.Font.Bold = True ' 设置标签字体为粗体

End Sub