How to extract image from embedded OLEObject and paste into Word?

[trundle]

Hi,

I've embedded images into my spreadsheet as icons using the code below, and I need to then copy the images into Word - not images of the icons, but the original images. Is this possible? If so, can anyone help with how? I've tried several things, including Steve Bullen's PastePicture, but I keep getting the icons instead.

           Set Ole = ActiveSheet.OLEObjects.Add(FileName:=FileToOpen, Link:=False, _
                DisplayAsIcon:=True, IconFileName:="imageres.dll", IconIndex:=66, _
                IconLabel:=FileName, Left:=Left, Top:=Top)

Thanks in advance!