VBA copy image from excel sheet to word doc

[simba24d]

Hi all,

I'm trying to copy an image that is present on excel sheet to a word doc.
I know that to copy a chart

With ActiveSheet.ChartObjects(1).Chart
.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Paste chart
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
End With

but what about an image (jpg/gif/...) that has been inserted in the active sheet?

Thanks for the support

 

[imskin]

What if i have two picture and two chart in the sheet. How can copy all of this into words?

What wrong with my code below?

Sub exportallxlpicture()
Dim sht As Worksheet, appwd As Shape
For Each sht In ActiveWorkbook.Sheets
For Each appwd In sht.Shapes
appwd.Shapes.Export "C:\temp\" & sht.Name & appwd.Name & ".jpg", "JPG"
Next appwd
Next sht
End Sub


Help!!