批量添加图片到Excel单元格中-曙光学习苑

将EXCEL中的图片连接地址批量插入到单元格中，首先，在EXCEL中填充连接，然后保存为启用宏的xlsm工作薄。接着使用VBA编辑器，将以下代码沾贴进去，并通过宏执行转换。

图片[1]-批量添加图片到Excel单元格中-曙光学习苑

将以下代码到VBA中并积存。

Sub test()
Dim rg As Range, shp As Shape
Rem ---------------------------------------------------
Rem 清除图形对象
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
Rem ---------------------------------------------------
Rem 按名称插入图片
Rem 下行代码，根据A列开始循环处理
For I = 1 To Cells(Rows.Count, "A").End(3).Row
Set rg = Cells(I, "B")
Rem 下面代码，添加矩形
ActiveSheet.Shapes.AddShape(msoShapeRectangle, rg.Left, rg.Top, rg.Width, rg.Height).Select
Rem 下面代码，在矩形内部用图片填充
Selection.ShapeRange.Fill.UserPicture rg.Offset(0, -1).Value
Next
End Sub

回到EXCEL视图界面，点击“宏”，执行Sheet1.test。(注意：无效的链接地址会导致内存溢出的错误)

附：在编辑栏里输入(=HYPERLINK(A1)，再批量填充，这样可以把网址批量转换成超连接。