Copying

Excel > Cells & Ranges > VBA Code > Copying
Excel > Charts > VBA Code > Copying
Word > Paragraphs > VBA Code > Copying

ActiveSheet.Shapes("Chart1").Copy 
ActiveSheet.Shapes("Chart1").CopyPicture ?