在VBA中绘制RGB光谱图

Sub DrawRGBSpectrum()
    Dim chart As Chart
    Dim series As Series
    Dim i As Integer
    
    ' 创建一个图表对象
    Set chart = ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Chart
    
    ' 设置图表的标题
    chart.HasTitle = True
    chart.ChartTitle.Text = "RGB光谱图"
    
    ' 设置图表的坐标轴
    chart.Axes(xlCategory).HasTitle = True
    chart.Axes(xlCategory).AxisTitle.Text = "颜色"
    chart.Axes(xlValue).HasTitle = True
    chart.Axes(xlValue).AxisTitle.Text = "强度"
    
    ' 循环绘制RGB光谱图
    For i = 0 To 255
        ' 创建一个数据系列
        Set series = chart.SeriesCollection.NewSeries
        
        ' 设置数据系列的名称
        series.Name = "颜色 " & i
        
        ' 设置数据系列的X值和Y值
        series.XValues = Array(i)
        series.Values = Array(0)
        
        ' 设置数据系列的线条颜色
        series.Format.Line.ForeColor.RGB = RGB(i, 0, 0)
    Next i
    
    ' 调整图表的大小和位置
    chart.Parent.Left = 100
    chart.Parent.Top = 100
    chart.Parent.Width = 400
    chart.Parent.Height = 300
End Sub