Copy multiple charts

Y'all

Does anyone know how to select all charts on a worksheet for copying
en masse to WORD.
The charts are layed out on the sheet and, currently, they are
selected manually together (SHIFT+Select) copied and then pasted into
WORD (paste special + picture + no float).
I need a small routine that, on the press of a button, will select and
copy all of the seven charts (per Word page). The actual pasting into
word i'm happy to leave manual.....

Mark

Mark -

This line copies all the charts on the active sheet.

ActiveSheet.ChartObjects.CopyPicture Appearance:=xlScreen, _
Format:=xlPicture

- Jon
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______

MarkyP wrote:
> Y'all
>
> Does anyone know how to select all charts on a worksheet for copying
> en masse to WORD.
> The charts are layed out on the sheet and, currently, they are
> selected manually together (SHIFT+Select) copied and then pasted into
> WORD (paste special + picture + no float).
> I need a small routine that, on the press of a button, will select and
> copy all of the seven charts (per Word page). The actual pasting into
> word i'm happy to leave manual.....
>
> Mark