Excel displays the link URL of the picture as picture to

Original post ： ​ ​http://www.mrexcel.com/forum/excel-questions/604604-insert-image-url-images-into-cells-2.html​​ 1. as follows VBA The script will c1 Picture in cell url Link in cell B1 Show the picture inside

Log in and copy

      
      

       
       Sub Test()
       
       
   Dim Pic As Picture
       
       
    Application.ScreenUpdating = False
       
       
    With ActiveSheet.Range("C1")
       
       
        Set Pic = .Parent.Pictures.Insert(.Value)
       
       
        With .Offset(, -1)
       
       
            Pic.Top = .Top
       
       
            Pic.Left = .Left
       
       
            Pic.Height = .Height
       
       
            Pic.Width = .Width
       
       
        End With
       
       
    End With
       
       
    Application.ScreenUpdating = True
       
       
End Sub
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.
       
       
13.
       
       
14.
      
      

 2. Picture of the whole column url Show as picture

Log in and copy

      
      

       
       Sub Test()
       
       
    Dim Rng As Range
       
       
    Dim Cell As Range
       
       
    Dim Pic As Picture
       
       
    Application.ScreenUpdating = False
       
       
    Set Rng = Range("C1:C" & Range("c" & Rows.Count).End(xlUp).Row)
       
       
    For Each Cell In Rng
       
       
        With Cell
       
       
            Set Pic = .Parent.Pictures.Insert(.Value)
       
       
            With .Offset(, -1)
       
       
                Pic.Top = .Top
       
       
                Pic.Left = .Left
       
       
                Pic.Height = .Height
       
       
                Pic.Width = .Width
       
       
            End With
       
       
        End With
       
       
    Next Cell
       
       
    Application.ScreenUpdating = True
       
       
End Sub 
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.
       
       
13.
       
       
14.
       
       
15.
       
       
16.
       
       
17.
       
       
18.
       
       
19.