| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro problem
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro problem
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 -- Regards, Tom Ogilvy "Rui" wrote in message ... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
macro problem
that may work. i´ll give it a try.
probably it will be slower, but no harm done! thanks tom rui "Tom Ogilvy" wrote: 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 -- Regards, Tom Ogilvy "Rui" wrote in message ... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro Problem | New Users to Excel | |||
| Problem with Macro | Excel Discussion (Misc queries) | |||
| I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Worksheet Functions | |||
| I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Discussion (Misc queries) | |||
| Macro problem | Excel Worksheet Functions | |||
Hybrid Mode
