VBA代码不会从折线图中定义的范围添加类别

Sub AddCategoryToLineChart()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim ser As Series
    Dim rngData As Range
    Dim rngCategory As Range
    
    ' 设置工作表和图表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set cht = ws.ChartObjects("Chart 1")
    
    ' 设置数据范围和类别范围
    Set rngData = ws.Range("A2:B6") ' 数据范围，包括X轴和Y轴数据
    Set rngCategory = ws.Range("A2:A6") ' 类别范围，即X轴的数据
    
    ' 清除现有的数据系列
    For Each ser In cht.Chart.SeriesCollection
        ser.Delete
    Next ser
    
    ' 添加新的数据系列
    Set ser = cht.Chart.SeriesCollection.NewSeries
    ser.Values = rngData.Columns(2) ' 设置Y轴数据
    ser.XValues = rngCategory ' 设置X轴数据
    
    ' 设置图表标题和轴标签
    cht.Chart.HasTitle = True
    cht.Chart.ChartTitle.Text = "折线图示例"
    cht.Chart.Axes(xlCategory).HasTitle = True
    cht.Chart.Axes(xlCategory).AxisTitle.Text = "类别"
    cht.Chart.Axes(xlValue).HasTitle = True
    cht.Chart.Axes(xlValue).AxisTitle.Text = "数值"
    
    ' 调整图表位置和大小
    cht.Left = 100
    cht.Top = 100
    cht.Width = 400
    cht.Height = 300
End Sub