用vba实现excel散点图不能按顺序显示的数据标签

Sub ShowDataLabelsInOrder()
    Dim chartObj As ChartObject
    Dim scatterChart As Chart
    Dim series As Series
    Dim dataLabels As DataLabels
    Dim i As Integer
    
    ' 获取散点图对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    Set scatterChart = chartObj.Chart
    
    ' 获取第一个系列
    Set series = scatterChart.SeriesCollection(1)
    
    ' 启用数据标签
    series.HasDataLabels = True
    
    ' 获取数据标签对象
    Set dataLabels = series.DataLabels
    
    ' 设置数据标签显示顺序
    For i = 1 To series.Points.Count
        dataLabels.Item(i).Text = series.XValues(i) & ", " & series.Values(i)
    Next i
End Sub