Macro to insert 2 graphs from seperate excel tabs into a single word document

[rpt21]

Hello everyone,

Am hoping to create a macro that will cut 2 excel graphs (each on their own tab) and paste them into a word document of my choosing. It will alwasy be the first 2 graphs that need replacing in the word document.

I want to do this because I am streamlining a report writing process which is repetitive.

Your help is much appreciated,

rpt21

[antoka05]

Put this macro in Excel (2003) where you have your graphs and try it... I hope it can help you:

Please Login or Register  to view this content.

Regards,
Antonio

[rpt21]

Hi Antonio,

Thanks for that. The first part of the code works, it seems to get stuck at "sh.ChartObjects(1).Select". It says "Run-time error '1004': Method 'ChartObjects' of object '_Worksheet' failed".

The first graph is on the 3rd Sheet named 'Leaks graph' and the second graph is on the 4th Sheet named 'Leaks Chronicle' and they are to replace the first 2 graphs in the document of my choice.

I changed .doc to docx because I work with word 2007, hope this doesn't affect anything?

much appreciated,

Ross