Macro help

[rp1989]

Hey everyone,

I am trying to generate graphs from a data set. Column A is the title of graph. Columns B-F are y-axis values. Row 1, columb b-f are the titles for the x-axis. Every row after row 1 is suppose to be a new graph. All the graphs can be on the same excel file. Any ideas on how to run a macro to generate each graph rather than doing it manually. Thanks

 

[tweedle]

I think this is in line with what you are looking for.

Sub GenSingleSeriesChart()
Application.ScreenUpdating = False
LastRow = Range("A100").End(xlUp).Row
For rowidx = 2 To LastRow
Range("A1:F1,A" & rowidx & ":F" & rowidx).Select
ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'Sheet1'!$A$1:$F$1,'Sheet1'!$A" & rowidx & ":$F" & rowidx)
    ActiveChart.ChartType = xlLine
Next rowidx
Application.ScreenUpdating = True
Range("A1").Select
End Sub

Sub DelCharts()
For ShapeIdx = ActiveSheet.Shapes.Count To 1 Step -1
    ActiveSheet.Shapes(ShapeIdx).Delete
Next ShapeIdx
End Sub