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

 

[milosgsx1200]

Dear patel45, your code works perfectly till moment there is missing a picture, than I will get back an error and macro stops. Could you help me avoid this? Thanks Milos

 

[DrNicket]

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

How would I modify this so I could pull an image from any URL without modifying the macro every time and only by pasting the url into a predetermined cell?

 

[whataslacker]

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

Resurrecting an old post here, got this to work, but I would like it to run until it hits a blank cell in the column where the image numbers are. This would be so I would not have to edit the range of cells every time I run the macro.