How to Export images From excel as given Cells name?

[Rexana]

I have an Excel Sheet with 15000 Rows including Product Name in Column "A",
Including Product Images in Column "B".
Now, How can I export All of these Pictures in a Folder as Column A product name.
It will save My Day.

 

[Rexana]

I use a slightly different method to export pictures. Instead of

img.CopyPicture xlScreen, xlPicture

I just use

 img.copy

. Not sure if that would make a difference. You can see my code here, post #13.

I will try this now.

 

[yky]

Merely changing that line probably won't work. I didn't download your workbook because the site asked me to log in and I don't want to create accounts here and there. So, I can't really test on your workbook. Consider using Dropbox. It doesn't require people to log in to download.

 

[yky]

I just tested DanteAmor's code. It works for me. I have four pictures in one sheet, 3 of them on Col B, 1 not. After running his code, I got three pictures saved.

Did you modify his code in any way?

 

[MrSTruct]

Hi,

I am trying to do exactly what OP asked for and I get same white blank (1KB pictures) in my folder. I tried Yky's suggestions in here. Also Yky's code (on the other thread) is working to export the pictures, but not to name them according to column A.

Any suggestions?

( Column A : name , Column B: Pic)

Thanks

 

[yky]

I might have found out what went wrong in DanteAmor's code. Just deleting the object isn't enough. You need to set it to nothing also. Try adding one line to DanteAmor's code.

          .Delete
          Set tempChart = Nothing '<= add this line of code

 

[Domenic]

If you are still getting a blank/white image, try activating the chart object before you copy/paste. So, for example, with Dante's code...

        With tempChart
          .Activate
          .Border.LineStyle = xlLineStyleNone
          .Chart.Paste
          .Chart.Export sPath & sName & ".gif"
          .Delete
        End With

Hope this helps!

 

[MrSTruct]

If you are still getting a blank/white image, try activating the chart object before you copy/paste. So, for example, with Dante's code...

          .Activate

Amazing, that little line did the trick!

Thanks both for your time!

 

[sarah6033]

Looking at this now.... wondering if the images have to be locked to the cell? It's in the properties tab there's an option to scale and move with cell