Excel文档中有图片链接，如何批量下载到单元格中

gooyeah

1. Sub LoadPic(ByVal URL As String, ByVal rng As Range)
   
2. With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
3.     .settext "<table><img src=""" & URL & """ width=""70"" height=""70"">"
   
4.     .putinclipboard
   
5.     ActiveSheet.Paste Destination:=rng
   
6. End With
   
7. Application.CutCopyMode = False
   
8. End Sub
   
9. Sub 插入图片()
   
10. Dim i As Integer
    
11. Application.ScreenUpdating = False
    
12. ActiveSheet.DrawingObjects.Delete
    
13. For i = 2 To 3
    
14.     LoadPic Cells(i, 2).Value, Cells(i, 1)
    
15. Next
    
16. Application.ScreenUpdating = True
    
17. End Sub

点击复制（BT类链接可使用115网盘或迅雷网盘离线下载）