在vba中选择图表系列集合

Sub SelectChartSeriesCollection()
    Dim chart As Chart
    Dim seriesCollection As SeriesCollection
    Dim series As Series
    
    ' 获取图表对象
    Set chart = ActiveSheet.ChartObjects("Chart 1").Chart
    
    ' 获取系列集合对象
    Set seriesCollection = chart.SeriesCollection
    
    ' 选择第一个系列
    Set series = seriesCollection(1)
    
    ' 或者通过名称选择系列
    ' Set series = seriesCollection("Series 1")
    
    ' 在此处可以对系列进行操作，例如修改系列的数据源、样式等
    
End Sub