如何将图片链接地址批量转换为图片展示

如图1，单元格内是图片链接地址，有些一个单元格内多个链接地址分行展示，怎样把这些链接地址转换为图片呢？

图1

首先，我们把这些单元格内有多个链接地址的变为多个单元格，使得一个单元格一个链接地址，方法如下：

Step1:将A列全部链接地址复制粘贴到Word中，按快捷键【Ctrl+H】,点击“更多”，在查找处输入换行标记（光标定位到替换栏，点击替换→特殊字符→手动换行符），替换为段落标记“^p”（光标定位到替换栏，点击替换→特殊字符→段落标记），如图2，再点击“全部替换”。

图2

Step2:将替换后的word内容复制粘贴到Excel中，一个单元格就只有一个链接地址了。

接下来再转换为图片，点击快捷键【Alt+F11】,输入以下VBA代码：

Sub ShowImage()

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

执行代码，所有的链接地址转换为图片了，如图3。

图3