Copying

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

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

ActiveSheet.Shapes("Rectangle 1").Copy 
    Range("B2").Select 
    ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", 
                             Link:=False, 
                             DisplayAsIcon:=False 

    Selection.ShapeRange.IncrementTop 4 
    Selection.ShapeRange.IncrementLeft 5.5 

    Range("D4").Select 
    ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object" 
    Selection.ShapeRange.IncrementTop 4 
    Selection.ShapeRange.IncrementLeft 5.5 
    Selection.ShapeRange.Fill.Visible = msoFalse