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.

 

[DanteAmor]

Hi and welcome to MrExcel

Try this:

Sub Export_Images()
  Dim img As Shape, tempChart As ChartObject
  Dim sPath As String, sName As String
    
  sPath = "C:\trabajo\images\"          'folder name
  For Each img In ActiveSheet.Shapes
    If img.TopLeftCell.Column = 2 Then
      sName = img.TopLeftCell.Offset(0, -1).Value
      If sName <> "" Then
        img.CopyPicture xlScreen, xlPicture
        Set tempChart = ActiveSheet.ChartObjects.Add(0, 0, img.Width, img.Height)
        With tempChart
          .Border.LineStyle = xlLineStyleNone
          .Chart.Paste
          .Chart.Export sPath & sName & ".gif"
          .Delete
        End With
      End If
    End If
  Next
End Sub

 

[Rexana]

Hi There,
Thank you so much for your Code. it Works Almost but When I Run The Code in The Output Folder it Shows only Whiteboard Photos Instead of My Excel Column B Images.
See the Screen Shot, please!

 

[DanteAmor]

If you open one of those files what do you see?

 

[Rexana]

If you open one of those files what do you see?

I see only White plain Photo.

I attached One of them here...

 

[DanteAmor]

I have an Excel Sheet with 15000 Rows including Product Name in Column "A",
Including Product Images in Column "B".

You could share a file with only 2 of those images.

You could upload a copy of your file to a free site such www.dropbox.com or google drive. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.

 

[Rexana]

Sure!
Please Have a Look.

Dropbox - File Deleted - Simplify your life

www.dropbox.com

 

[DanteAmor]

Yes I can generate the files and I can see inside them the image:

In this line of the macro, instead of .gif, try another extension, for example .png or .jpg

.Chart.Export sPath & sName & ".gif"

 

[Rexana]

I already try it, Sir,
But No Use

 

[yky]

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.