用Vba在excel表的每个sheet依次生成曲线图，第一列数据作为横轴，第二列数据作为纵轴，

以下是一个简单的示例代码，可以实现在Excel的每个工作表中生成曲线图：

Sub CreateCharts()
    Dim ws As Worksheet
    Dim i As Integer
    
    For Each ws In ActiveWorkbook.Worksheets
        '在每个工作表的第一列和第二列创建曲线图
        Set chartobj = ws.Shapes.AddChart2(251, xlLine, 10, 10, 400, 250)
        chartobj.Chart.SetSourceData Source:=ws.Range("A1:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        chartobj.Chart.HasTitle = True
        chartobj.Chart.ChartTitle.Text = ws.Name
        
        '设置横坐标和纵坐标的标签
        chartobj.Chart.Axes(xlCategory).HasTitle = True
        chartobj.Chart.Axes(xlCategory).AxisTitle.Text = ws.Range("A1").Value
        chartobj.Chart.Axes(xlValue).HasTitle = True
        chartobj.Chart.Axes(xlValue).AxisTitle.Text = ws.Range("B1").Value
    Next ws
End Sub

这段代码会遍历当前活动工作簿中的每个工作表，并在每个工作表的第一列和第二列创建一个曲线图。可以根据实际需求修改代码中的参数，来调整图表的大小、位置和类型等。