Copy Charts from several worheets into new one

[bduarteg]

Hi guys! I am working with a workbook that contains over 200 worksheets with one chart each. I would like to copy all charts from the worksheets and paste it into a new one.

Would anyone know a macro/VBA that could help me out with this?

I appreciate the help!

[Kaper]

for instance:

Please Login or Register  to view this content.

[bduarteg]

Hi, Kaper! I really appreciate you taking the time to help me!
I tried to apply the code and I keep getting the following error message: "Run-time error of -2147221040(8004010d)-The specified dimension is not valid for the current chart type". And the error keeps pointing to this line:

wks.ChartObjects(1).Cut


This evens happens on the sample you kindly sent me. It only copies the first two charts and then it stops. I tried it on my own workbook and the same happens. I tried to look it up a way to solve it but I couldn't find anything to help it. Any ideas on how to solve it?

[Kaper]

Have no foggiest idea why it happens.
And cannot obtain such an error.

In my case (my file and Excel 365) everything is copied.
The only thing which comes to my mind is a problem with specific chart type in Excel 2016. If in case of my file it stops after 2 charts copied, then may be a problem is with clustered bar chart?.
You can try removing Sheet3 and all it's copies - Sheet3 (1) and so on - from my file and then run the code.
If it works smoothly, then we can try to study the case in detail.

[bduarteg]

I tried removing all bar charts as you suggested but still get the same error. Tried changing the chart types/ creating new ones too but no progress either. I'm sorry for making you waste your time.