Extract and Save all JPG Objects in Excel Workbook?

Hi there,

I have a number of excel files with embedded (object) jpgs. I am being asked to upload these photos individually to specific line items of a client's online database.

Right now I'm having to open each embedded object one by one, save them to my computer, and then upload. Is there a way to extract all of these jpgs to a folder on my computer?

**note that I've tried saving the file as a webpage and using the "embedded" folder. This is yielding all binary OLE Object files which I cannot open/convert to pictures files.

Excel JPGs.png

Attached is a small sample of what I'm working with. Thanks very much for your help!

Originally Posted by martindwilson

starnge i can save it as html and get the folder and get the images ok

If you try opening the images all you get is the thumbnail placeholder, not the image itself. See how small the image files are?

Originally Posted by xladept

Hi dlello,

This will group them so they can all be moved at once:

Please Login or Register  to view this content.

Directions for running the routine(s) just supplied

Copy the code to the clipboard

Open your Workbook

Save your Workbook or Another Workbook designated for Macros as Macro_Enabled

Press ALT + F11 to open the Visual Basic Editor.

Select “Module” from the Insert menu

Type "Option Explicit" then paste the code under it

With the cursor between Sub and End Sub press F5 (F8 to Single Step)

OR

Press ALT + Q to close the code window.

Press ALT + F8 then double click on the macro name

I am getting the following error upon running:

Excel JPGs - VBA Error.jpg

Any ideas?

Originally Posted by xladept

Hi DLello,

It runs for me on both my 2003 and my 2010 - is there anything else that I should know?

No, interesting... I'm running 2007 but I don't think that should make a difference. And we're working with the same file so I'm really not sure why I'd be getting an error.

I'll see what I can figure out. So this macro does what exactly?

Originally Posted by xladept

Hi DLello,

The macro just groups all the Images (like you sent in your sample) so that you can then move them all at once - if you had a destination, we could probably code the whole move.

@Martin - I did right-click - Package Object - Activate contents (It's a nice picture from above a highway).

Yea if you could help me code the whole thing that would be great. The destination folder would be located at: C:\Users\lel69316\Desktop\Sample Embedded Final

Thanks again!