Move/Copy the picture from excel workbook to MS word

Hello Everybody
I want to copy or move the picture from Excel Workbook to MS Word using Word or Excel Macro.

Thanks for your reply, by the code below i have copied the simple picture from excel to word, but its not a good example because it copies the data from the range cell to the word, now i want that i have active Word document name "abc.doc" and in excel worksheet i have 5 excel graphs, it take the graphs from excel and put to the desired location in word.


[code]
Sub export_to_word()

Dim wdApp As Object
Dim wd As Object

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wd = wdApp.Documents.Add

wdApp.Visible = True


Range("D6:j25").CopyPicture xlScreen, xlPicture
wd.Range.Paste

End Sub
[\code]