macro problem

[Rui]

Hi,

i´m trying to copy a selection of charts from a workbook to another. Here´s
my lines:

Windows("BDs.xls").Activate
ActiveSheet.ChartObjects("Chart 11").Activate
ActiveSheet.Shapes.Range(Array("Chart 11", "Chart 12", "Chart 13",
"Chart 14" _
, "Chart 15", "Chart 16")).Select
Selection.Copy
Windows(F).Activate
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False

When i see the macro running, it appears that only copies the first chart,
and then
it bugs when tries to paste in the workbook "F"

can anyone help me?
thanks,
Rui

 

[Tom Ogilvy]

copy then one at a time and past as a picture or select the entire range
that contains the charts (not the charts) and copy and paste as a picture

 

[Rui]

that may work. i´ll give it a try.
probably it will be slower, but no harm done!

thanks tom
rui