copying all charts as enhanced metafiles

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

I have a *** with a number of charts. I want to copy them to another ***
as a single picture. The following code works, but the picture loses
resolution.

'Copies graphs as picture
Sheets("Graphs").Select
Range("A1:R51").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Range("A1").Select


'Pastes graph picture to summary ***
Sheets("Static Summary Sheet").Select
Range("A1").Select
Active***.Paste

I have replaced the code with:

'Copies graphs as picture
Sheets("Graphs").Select
Active***.Shapes.SelectAll
Selection.Copy
Range("A1").Select


'Pastes graph picture to summary ***
Sheets("Static Summary Sheet").Select
Range("D5").Select
Active***.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False
Selection.Top = 69.75
Selection.Left = 37.5

Now I get an error in the pastespecial line "PasteSpecial method of
Work*** class failed.

Any ideas?
.

Quantcast