Excel图表VBA循环访问数据表

Sub CreateChart()
    Dim ws As Worksheet
    Dim rng As Range
    Dim chart As ChartObject
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 获取数据表的范围
    Set rng = ws.Range("A1:B10")
    
    ' 创建图表对象
    Set chart = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    
    ' 设置图表的数据源
    chart.Chart.SetSourceData rng
    
    ' 循环访问数据表中的每一行
    For i = 2 To rng.Rows.Count
        ' 获取当前行的数值
        xValue = rng.Cells(i, 1).Value
        yValue = rng.Cells(i, 2).Value
        
        ' 在图表中添加数据点
        chart.Chart.SeriesCollection(1).Values = chart.Chart.SeriesCollection(1).Values & "," & yValue
        chart.Chart.SeriesCollection(1).XValues = chart.Chart.SeriesCollection(1).XValues & "," & xValue
    Next i
    
    ' 设置图表的类型为折线图
    chart.Chart.ChartType = xlLine
    
    ' 设置图表的标题
    chart.Chart.HasTitle = True
    chart.Chart.ChartTitle.Text = "数据表图表"
    
    ' 设置图表的坐标轴标签
    chart.Chart.Axes(xlCategory).HasTitle = True
    chart.Chart.Axes(xlCategory).AxisTitle.Text = "X轴"
    chart.Chart.Axes(xlValue).HasTitle = True
    chart.Chart.Axes(xlValue).AxisTitle.Text = "Y轴"
    
    ' 设置图表的其他属性（如颜色、线条样式等）
    ' ...
    
End Sub