Hi Dave,

Thanks for the help.

However,
This is my code:
ActiveSheet.OLEObjects.Add(ClassType:="Paint.Pictu re", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\system32\shimgvw.dll", _
IconIndex:=3, IconLabel:="").Select

When a user click the Add Button, the Paint application opens.
So the user can paste the required image.
Then after closing the application, an icon appears on the selected cell.

There is no existing file.
I should embed an object into a cell on my excel file.

The problem is Paint, in default, is storing the object as a bitmap.
Which makes the overall file size bigger.

Please help.
Thanks a lot!


"Dave Peterson" wrote:

You may want to record a macro when you use Insert|Picture|from File
(xl2003 menus)

Kate Lynne Ronquillo wrote:

Is there a way to add a jpg object on a cell?
I'm using Paint.Picture but the image is in bmp.

We are trying to minimize the overall size of the excel file.
We have been using word document before, but we jpg is a much smaller file.

Is there a way to add jpg object in the file.
Or maybe an application that the default extension is jpg?

I have no idea how to this, please help.
Thanks a lot!

-- Kate

--

Dave Peterson