insert line graph for each column separatly with vb

[CORAL]

hi
i want to have line graphs for each column and save the graphs in png form like below an example was attached


Attachment 1494

[LalitPandey87]

Add data column manually and Try below code to export chart as PNG file:

Sub Lalit_Test()

    With ThisWorkbook.Worksheets("Sheet2")
        .ChartObjects("Chart 5").Chart.Export ThisWorkbook.Path & Application.PathSeparator & "Chart_5_" & Format(Now, "DD-MM-YY_HH.MM.SS_AM/PM") & ".PNG"
    End With

End Sub

[p45cal]

and a tweak to plot and export multiple charts from Worksheet "min max & march of khamir"

Sub blah()
With ThisWorkbook.Worksheets("min max & march of khamir")
  For i = 1 To 61 Step 2
    lr = .Cells(Rows.Count, i + 1).End(xlUp).Row
    .ChartObjects("Chart 2").Chart.SetSourceData Source:=.Range(.Cells(1, i), .Cells(lr, i + 1))
    .ChartObjects("Chart 2").Chart.Export ThisWorkbook.Path & Application.PathSeparator & "Chart " & Format(i, "00") & " " & Format(Now, "DD-MM-YY_HH.MM.SS_AM/PM") & ".PNG"
  Next i
End With
End Sub