1. Sub URLPictureInsert()
2.         'Adapted/improved from ExtendOffice's version:
3.         'https://www.extendoffice.com/documents/excel/4212-excel-insert-image-from-url.html
4.    
5.     Dim Pshp            As Shape
6.     Dim rngX            As Range
7.     Dim rngSelection    As Range
8.     Dim colX            As Long
9.     Dim filenam         As String
10.    
11.     Set rngSelection = Selection.SpecialCells(xlCellTypeVisible)
12.    
13.     On Error Resume Next
14.     Application.ScreenUpdating = False
15.    
16.     For Each rngX In rngSelection
17.         filenam = rngX
18.         ActiveSheet.Pictures.Insert(filenam).Select
19.         Set Pshp = Selection.ShapeRange.Item(1)
20.         If Pshp Is Nothing Then GoTo lab
21.         'colX = rngX.Column + 1
22.        'Set rngX = Cells(rngX.Row, colX)
23.        With Pshp
24.             .LockAspectRatio = msoFalse
25.             If .Width > rngX.Width Then .Width = rngX.Width ' * 2 / 3 ' scaling optional/removed
26.            If .Height > rngX.Height Then .Height = rngX.Height ' * 2 / 3 'scaling optional/removed
27.            .Top = rngX.Top + (rngX.Height - .Height) / 2
28.             .Left = rngX.Left + (rngX.Width - .Width) / 2
29.         End With
30. lab:
31.         Set Pshp = Nothing
32.        
33.     Next rngX
34.    
35.     rngSelection.Select
36.     Application.ScreenUpdating = True
37. End Sub