excel 将图片的链接URL 显示为图片 转

原帖： http://www.mrexcel.com/forum/excel-questions/604604-insert-image-url-images-into-cells-2.html
1. 如下VBA脚本将c1单元格内图片url链接在单元B1内把图片显示出来

 

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  

 

 2. 整列的图片url显示为图片

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