Grabbing a graphic from a URL and putting into Excel

[dronka]

I have a product inventory database in Excel. Each item in the inventory has a URL that contains a picture of the product. I'd like to find a way to automatically "grab" the picture and insert it into the spreadsheet so that each product in the inventory contains a picture. Here is an example of one of the URLs:

http://cdn.shopify.com/s/files/1/0193/4340/products/17sun-white-sheer-blouse-001.jpg?v=1361215466

Is there a way to do this (probably with a macro?)?

 

[Luke M]

If you've got a list of the URL's in col A, this would load up the images fairly quickly.

Sub LoadImages()
Dim url_column As Range
Dim image_column As Range
Set url_column = Worksheets(1).UsedRange.Columns("A")
Set image_column = Worksheets(1).UsedRange.Columns("B")
Dim i As Long
'Starting at row 1...
For i = 1 To url_column.Cells.Count
  With image_column.Worksheet.Pictures.Insert(url_column.Cells(i).Value)
  .Left = image_column.Cells(i).Left
  .Top = image_column.Cells(i).Top
  .Height = 72 * 4.35 '72 pixels per inch
  
  image_column.Cells(i).EntireRow.RowHeight = .Height
  End With
Next
End Sub

Shamelessly copied from here: http://stackoverflow.com/a/6312837

 

[dronka]

Luke - Your shameless copying was a great success! I made a few tweaks and it works like a charm. Incredible. Is there anything Excel can't do?? Thank you.

 

[SirJB7]

Hi, dronka!
Pufff... lot of things. Check this:
http://chandoo.org/forum/threads/sp...yond-excel-39-s-capabilities.9640/#post-55415
Regards!

 

[dronka]

Yes, those are good points, SirJB7. Excel didn't make my coffee this morning or pee the dog in single-digit temperature. If only life had macros...