Excel文档中有图片链接,如何批量下载到单元格中
Sub LoadPic(ByVal URL As String, ByVal rng As Range)With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.settext "<table><img src=""" & URL & """ width=""70"" height=""70"">"
.putinclipboard
ActiveSheet.Paste Destination:=rng
End With
Application.CutCopyMode = False
End Sub
Sub 插入图片()
Dim i As Integer
Application.ScreenUpdating = False
ActiveSheet.DrawingObjects.Delete
For i = 2 To 3
LoadPic Cells(i, 2).Value, Cells(i, 1)
Next
Application.ScreenUpdating = True
End Sub
页:
[1]