Copy Chart and PasteSpecial
Why does the Copy line take so long when running this code?. I'm trying to
copy a chart and paste special to another workbook. When the code gets to 'Selection.copy', the computer hard drive makes a lot of noise and it takes up to 10 seconds just to complete the copy. Any ideas? I've tried copying the chart area, but then I don't have the option of 'PasteSpecial'. ActiveSheet.ChartObjects("Chart 2").Select ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized Selection.Copy '<---------This line takes awhile Workbooks(wbname2).Activate ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False Thanks, Paul |
Copy Chart and PasteSpecial
1. Copy the chart, not its chart object.
2. Copy as a picture, then do a normal Paste. ActiveSheet.ChartObjects("Chart 2").Chart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Workbooks(wbname2).Activate ActiveSheet.Paste - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "PCLIVE" wrote in message ... Why does the Copy line take so long when running this code?. I'm trying to copy a chart and paste special to another workbook. When the code gets to 'Selection.copy', the computer hard drive makes a lot of noise and it takes up to 10 seconds just to complete the copy. Any ideas? I've tried copying the chart area, but then I don't have the option of 'PasteSpecial'. ActiveSheet.ChartObjects("Chart 2").Select ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized Selection.Copy '<---------This line takes awhile Workbooks(wbname2).Activate ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False Thanks, Paul |
Copy Chart and PasteSpecial
Thanks Jon,
That's what I needed. "Jon Peltier" wrote in message ... 1. Copy the chart, not its chart object. 2. Copy as a picture, then do a normal Paste. ActiveSheet.ChartObjects("Chart 2").Chart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Workbooks(wbname2).Activate ActiveSheet.Paste - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "PCLIVE" wrote in message ... Why does the Copy line take so long when running this code?. I'm trying to copy a chart and paste special to another workbook. When the code gets to 'Selection.copy', the computer hard drive makes a lot of noise and it takes up to 10 seconds just to complete the copy. Any ideas? I've tried copying the chart area, but then I don't have the option of 'PasteSpecial'. ActiveSheet.ChartObjects("Chart 2").Select ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMaximized Selection.Copy '<---------This line takes awhile Workbooks(wbname2).Activate ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _ , DisplayAsIcon:=False Thanks, Paul |
All times are GMT +1. The time now is 01:57 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com