VBA:用"Select Case“给图表系列上色

Sub ColorChartSeries()
    Dim chartObj As ChartObject
    Dim chartSeries As Series
    Dim seriesCount As Integer
    
    ' 获取图表对象
    Set chartObj = ActiveSheet.ChartObjects("Chart 1")
    
    ' 获取图表系列的数量
    seriesCount = chartObj.Chart.SeriesCollection.Count
    
    ' 遍历每个图表系列
    For Each chartSeries In chartObj.Chart.SeriesCollection
        ' 根据系列的名称选择颜色
        Select Case chartSeries.Name
            Case "Series 1"
                chartSeries.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
            Case "Series 2"
                chartSeries.Format.Fill.ForeColor.RGB = RGB(0, 255, 0) ' 绿色
            Case "Series 3"
                chartSeries.Format.Fill.ForeColor.RGB = RGB(0, 0, 255) ' 蓝色
            Case Else
                chartSeries.Format.Fill.ForeColor.RGB = RGB(0, 0, 0) ' 黑色
        End Select
    Next chartSeries
End Sub