VBA用于将数据点格式设置为图表中数据的最后一点的问题

Sub SetLastDataPointFormat()
    Dim chartObj As ChartObject
    Dim chartData As Range
    Dim lastPoint As Point
    
    ' 获取图表对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    
    ' 获取图表数据范围
    Set chartData = chartObj.Chart.SeriesCollection(1).Values
    
    ' 获取最后一个数据点
    Set lastPoint = chartData.Points(chartData.Points.Count)
    
    ' 设置最后一个数据点的格式
    With lastPoint.Format
        .Fill.ForeColor.RGB = RGB(255, 0, 0) ' 设置填充颜色为红色
        .Line.Weight = 3 ' 设置线条粗细为3
        .Line.ForeColor.RGB = RGB(0, 0, 255) ' 设置线条颜色为蓝色
    End With
End Sub