Copy data range from excel to word as an image (i.e. paste special)

Hi all,

Could someone please provide me with an example of how to copy a data range and paste it in a word file as an image by paste special in VBA code. I am new to excel programming and i am unsure how to start the code. Any help will be much appreciated, Many thanks in advance.

Hi All, I have managed to scrap something together that does the job, Please see below code:

Private Sub CommandButton1_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True

Set WordDoc = WordApp.Documents.Add

Range("a1:q23").Copy

WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafil, _
Placement:=wdInLine, DisplayAsIcon:=False

Set WordDoc = Nothing
Set WordApp = Nothing

End Sub