###############################################################################

### In excel
###
### select picture in the 1st sheet, and paste it to 2nd sheet.
### Then select another picture in 2nd sheet

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("picTest").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("D7").Select
    ActiveSheet.Paste
    Selection.Copy
    Application.Goto Reference:="Macro1"
End Sub

################################################################################

### In word
###
### at the end of word file, recording the marco
### Ctrl+V to paste the picture which was copied in excel file
### Then, alignment, paragraph

Sub Macro2()
'
' Macro2 Macro
'
'
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
End Sub


###############################################################################
###############################################################################

### In excel
###
### select chart in the one sheet.
Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets("picTest").Select
    ActiveSheet.ChartObjects("Chart 9""").Activate
    ActiveSheet.ChartObjects("Chart 9").Activate
    ActiveChart.ChartArea.Copy
    Application.Goto Reference:="Macro2"
End Sub

################################################################################

### In word
###
### paste the picture which copied in the excel

Sub Macro3()
'
' Macro3 Macro
'
'
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdChartLinked)
End Sub