charts and macros

[Guest]

I have a very long spreadsheet and I would like to make a separate chart for each line of the sheet. is it possible to create a macro to generate charts?

Thanks
JAS

 

[Juan Pablo González]

Try this macro, not fully tested. Got most of the code from the Macro recorder.

Sub Macro1()
Dim i As Long

For i = 2 To Range("A65536").End(xlUp).Row
    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A" & i & ":E" & i)
    ActiveChart.Location Where:=xlLocationAsNewSheet 'xlLocationAsObject
    Sheets("Sheet1").Select
Next i
End Sub

 

[Guest]

Thank you Mr Excel, it worked!