>Hi everybody,
>
>I have an Excel file with two pictures embedded. I'm wondering if there is a way to get these pictures out of it or the only way is to copy them using Paint?
>
>Thanks in advance.

Hi Naomi

You can use gpimage.prg (from download here) and then follow this:

oExcel= GETOBJECT(,"Excel.Application")
xlBitmap=2
oExcel.Activesheet.pictures(1).CopyPicture(,xlBitmap)

SET PROCEDURE TO gpimage.prg
gdip = CreateObject("gpInit")
img = CreateObject("gpImage")

=img.fromclipboard()
=img.saveasbmp("c:\hi1.bmp")

img=null
gdip=null
SET PROCEDURE TO 

oExcel=null

Good Luck