Excel图片URL直接显示图片

打开Excel后在查看“宏”里新建一个宏会弹出VB编辑器（或直接打开VB编辑器），然后运行宏AutoLoadImage，如果数据较大可能会比较慢。

'优化版本
Sub AutoLoadImage()
On Error Resume Next '容错处理
imgURL = "A"
imgCELL = "B"
dataRowCount = ActiveSheet.UsedRange.Rows.Count
For i = 2 To dataRowCount '循环次数/需要处理的行
Range(imgCELL & CStr(i)).Select
Range(imgCELL & CStr(i)).RowHeight = 60 '改变行高
Range(imgCELL & CStr(i)).ColumnWidth = 8 '改变列宽
ImageURL = Range(imgURL & CStr(i)).Text '获得图片地址
ActiveSheet.Shapes.AddShape(1, Range(imgCELL & CStr(i)).Left, Range(imgCELL & CStr(i)).Top, 60, 60).Select ' 设置图片位置及大小(1,x,y,长,宽)
'Selection.ShapeRange.Shadow.Obscured = msoTrue '指定形状的阴影有填充并被该形状所遮蔽
'Selection.ShapeRange.Shadow.Type = msoShadow18
Selection.ShapeRange.Fill.UserPicture (ImageURL) '用图片填充单元格
Range(imgCELL & CStr(i)).Select
Next i
End Sub