Insert image into cell by URL macro

[iindie]

I am facing a bit of a challenge here ,

I would like excel to load pictures from the internet into a cell for example our item code is 2220 present into $A$1 and by macro the picture located at http://www.biesse.net/imagesmini/2220.jpg would be inserted into the next cell $A$2. I have been looking around the forums and unfortunately with partial results at this point in time .

Thanking you for your time and attention and waiting to read from you soon ,

Best Regards,
iindie

 

[patel45]

Sub b() 
Dim cell, shp As Shape, target As Range
    myurl = "http://www.biesse.net/imagesmini/"
    Set Rng = ActiveSheet.Range("a2:a4") ' range with names
    For Each cell In Rng
       filenam = myurl & cell & ".jpg"
       ActiveSheet.Pictures.Insert(filenam).Select

      Set shp = Selection.ShapeRange.Item(1)
       With shp
          .LockAspectRatio = msoTrue
          .Width = 50
          .Height = 50
          .Cut
       End With
       Cells(cell.Row, cell.Column + 1).PasteSpecial
    Next
    
End Sub

 

[iindie]

Everything seems fine but i get a 1004 error code telling me the insert property of class Pictures cannot be read, I am using office 2011. I guess there has been some modifications as to how office 2011 handles images.

 

[patel45]

can you attach a link to a sample file ? I need more images urls

 

[iindie]

http://www.biesse.net/imagesmini/2220.jpg
http://www.biesse.net/imagesmini/2400.jpg
http://www.biesse.net/imagesmini/4601.jpg
http://www.biesse.net/imagesmini/4000.jpg
http://www.biesse.net/imagesmini/4001.jpg
http://www.biesse.net/imagesmini/4951.jpg

 

[patel45]

My macro works on my workbook with your links, please attach a link to your file

 

[iindie]

File is stored here : http://www.biesse.net/files/PictureUrlExtract.zip
I attached the file and the screen shot of the error into the archive file.

 

[patel45]

you have to update this line

Set Rng = ActiveSheet.Range("a2:a4") ' range with names

with the used range, in your attached file a1:a5

 

[iindie]

Even with the updated range it seems the problem remains the same i still get the same error message.

 

[patel45]

I'm sorry, but your attached file, after range changes, works on my excel 2010