Paste graph as a picture - too slow. Any suggestions??

[Andrewdm]

The code below is used to copy all graphs on all sheets and paste them as a picture. The important thing is that the graphs are pasted back to their original position.

The code works great, except that it has slowed the process by 300% (total time for running has increased from 8 hours to 24!!). It takes about 6 seconds to copy and paste each graph.

Any suggestions on how to speed up the process. Would it be quicker to select ALL graphs on a sheet at once and paste them all at once??
------------------------------
Dim ChObj As ChartObject
Dim Top As Double
Dim Left As Double

For Each ChObj In ActiveSheet.ChartObjects
Top = ChObj.Top
Left = ChObj.Left
ChObj.Cut
ActiveSheet.Pictures.Paste.Select
Selection.Top = Top
Selection.Left = Left

Next ChObj
Next sh

 

[Andrew Poulsom]

So my question becomes irrelevant.

Sorry, I don't know how to speed up the process given the number of charts you have. Perhaps it's time to upgrade your users. Or reduce the number of charts per workbook.