在VBA中编码多行图(循环)

Sub CreateMultipleLineCharts()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim rngData As Range
    Dim rngXValues As Range
    Dim rngYValues As Range
    Dim i As Integer
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置数据范围
    Set rngData = ws.Range("A1:C10")
    
    ' 循环创建图表
    For i = 1 To rngData.Columns.Count - 1
        ' 设置X轴和Y轴数据范围
        Set rngXValues = rngData.Columns(1)
        Set rngYValues = rngData.Columns(i + 1)
        
        ' 创建图表对象
        Set cht = ws.ChartObjects.Add(Left:=i * 200, Top:=0, Width:=200, Height:=200)
        
        ' 设置图表位置
        cht.Left = i * 200
        cht.Top = 0
        
        ' 设置图表数据源
        cht.Chart.SetSourceData Source:=Union(rngXValues, rngYValues)
        
        ' 设置图表类型为折线图
        cht.Chart.ChartType = xlLine
        
        ' 设置图表标题
        cht.Chart.HasTitle = True
        cht.Chart.ChartTitle.Text = "Line Chart " & i
        
        ' 设置图表轴标题
        cht.Chart.Axes(xlCategory).HasTitle = True
        cht.Chart.Axes(xlCategory).AxisTitle.Text = "X Values"
        cht.Chart.Axes(xlValue).HasTitle = True
        cht.Chart.Axes(xlValue).AxisTitle.Text = "Y Values " & i
    Next i
End Sub