图表系列集合的变更单VBA代码

Sub ChangeChartSeries()
    Dim chartObj As ChartObject
    Dim chartSeries As Series
    
    ' 获取图表对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    
    ' 获取第一个系列对象
    Set chartSeries = chartObj.Chart.SeriesCollection(1)
    
    ' 修改系列的名称
    chartSeries.Name = "Sales"
    
    ' 修改系列的数据源
    chartSeries.Values = Range("A1:A10")
    
    ' 修改系列的样式
    chartSeries.MarkerStyle = xlMarkerStyleCircle
    
    ' 修改系列的颜色
    chartSeries.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
    
    ' 修改系列的线条样式
    chartSeries.Format.Line.Weight = 2
    
    ' 修改系列的线条颜色
    chartSeries.Format.Line.ForeColor.RGB = RGB(0, 0, 255)
    
    ' 修改系列的数据标签
    chartSeries.HasDataLabels = True
    chartSeries.DataLabels.Position = xlLabelPositionAbove
    
    ' 修改系列的图例项
    chartSeries.LegendKey.Interior.Color = RGB(255, 0, 0)
    
    ' 修改系列的数据点
    chartSeries.Points(1).MarkerStyle = xlMarkerStyleSquare
    chartSeries.Points(1).MarkerSize = 10
    
    ' 修改系列的数据趋势线
    chartSeries.Trendlines.Add
    chartSeries.Trendlines(1).Type = xlLinear
    
End Sub