Extract and Save all JPG Objects from Excel Workbook?

[dlello2]

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.

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

 

[XLfriend777]

Hi dlello2 - If you are familiar with macros, and want to spend the time modifying the code below, it may help with your problem. It exports "Picture 1" to C:\misc\images\ExportTest2.jpg, but the catch is that it has to create a Chart first to accomplish this task. This is not pretty, but it may help. Best of luck.

Sub dlello2_ExportImages()
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
With ActiveChart
    .Paste
    .Export Filename:="C:\misc\images\ExportTest2.jpg", Filtername:="JPG"
End With
End Sub