Copy several graphs in VBA

[Ehtisham Ali]

Hey fellas,
this is urgent.

I have graphs on various worksheets in same workbook. Now I want to paste all the graphs on new worksheet in same workbook. Say for example 4 WS contains 4 different graphs, now I want 1 new WS contains all 4 graphs one below another.

the paste method should be as picture.

Thanks in advanced.

Ehtisham Ali

 

[Chris Mack]

This works for me:

Sub Copy_Charts()
    Dim ch As ChartObject, ws As Worksheet
    Sheets.Add.Name = "New"
    k = 2
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "New" Then GoTo skip
        ws.Activate
        For Each ch In ActiveSheet.ChartObjects
            ch.Activate
            ActiveChart.ChartArea.Copy
            Sheets("New").Activate
            Range("B" & k).Select
            ActiveSheet.Pictures.Paste
            k = k + 15
        Next
skip:
    Next
End Sub

You may need to play around with the value of k depending on the size of your charts.

Hope this helps,

Chris.

 

[Ehtisham Ali]

This works for me:

Sub Copy_Charts()
    Dim ch As ChartObject, ws As Worksheet
    Sheets.Add.Name = "New"
    k = 2
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = "New" Then GoTo skip
        ws.Activate
        For Each ch In ActiveSheet.ChartObjects
            ch.Activate
            ActiveChart.ChartArea.Copy
            Sheets("New").Activate
            Range("B" & k).Select
            ActiveSheet.Pictures.Paste
            k = k + 15
        Next
skip:
    Next
End Sub

You may need to play around with the value of k depending on the size of your charts.

Hope this helps,

Chris.

thanks a lot Chris it helped me a lot.

 

[Chris Mack]

You're welcome.