excel如何将超链接图片变成图片

‘壹’ excel表中，如何将图片链接批量变成缩略图

1、打开excel。

‘贰’ 将表格中图片超链接显示为图片

选择单元格，插入超链接。 注意表格和文件图片最好在同一个文件夹 拷贝的时候直接拷贝文件夹，这要不容易造成链接丢失或者失效。 建议将图片插入到excel的一个工作表中，直接在表里面进行连接，该工作表可以设置为隐藏。

‘叁’ EXCEL表格中的图片都是一个个超链接网址，怎么让其批量转换成图片的方式显示，除了批量下载在一个个

图片是个URL需要在 Excel 中直接显示图片，用VBA脚本能够实现，具体编辑方法如下：

1、环活动工作表中的各个超链接，如果是jpg或gif图片，不是可以通过正则来判断。

‘肆’ 怎么把Excel的图片链接转换成可视的图片

打开Excel后在查看“宏”里新建一个宏会弹出VB编辑器（或直接打开VB编辑器），输入以下代码并运行该代码：
Sub LoadImage()

Dim HLK As Hyperlink, Rng As Range
For Each HLK In ActiveSheet.Hyperlinks '循环活动工作表中的各个超链接
If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HLK.Address) Like "*.PNG" Or UCase(HLK.Address) Like "*.GIF" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断)
Set Rng = HLK.Parent.Offset(, 0) '设定插入目标图片的位置
With ActiveSheet.Pictures.Insert(HLK.Address) '插入链接地址中的图片
If .Height / .Width > Rng.Height / Rng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例
.Top = Rng.Top
.Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
.Width = .Width * Rng.Height / .Height
.Height = Rng.Height
Else
.Left = Rng.Left
.Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
.Height = .Height * Rng.Width / .Width
.Width = Rng.Width
End If
End With
HLK.Parent.Value = "" '删除单元格的图片链接
End If
Next
End Sub

‘伍’ excel超链接转换成图片

方法/步骤
第一步：Excel文件格式先设置为：Excel启用宏的工作簿(*.xlsm)
怎么将excel中的url批量转化为图片
第二步：1.复制代码（代码在最后面），打开VBA代码编辑窗口（快捷键Alt+F11）
2.粘贴Excel批量生成图片代码，保存代码，关闭VBA
怎么将excel中的url批量转化为图片
第三步：调整单元格宽高一致（建议按照像素大小）
怎么将excel中的url批量转化为图片
第四步：运行宏，实现URL链接生成图片
怎么将excel中的url批量转化为图片
5
Sub LoadImage()
Dim HLK As Hyperlink, Rng As Range
For Each HLK In ActiveSheet.Hyperlinks '循环活动工作表中的各个超链接
If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HLK.Address) Like "*.PNG" Or UCase(HLK.Address) Like "*.GIF" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断)
Set Rng = HLK.Parent.Offset(, 0) '设定插入目标图片的位置
With ActiveSheet.Pictures.Insert(HLK.Address) '插入链接地址中的图片
If .Height / .Width > Rng.Height / Rng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例
.Top = Rng.Top
.Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
.Width = .Width * Rng.Height / .Height
.Height = Rng.Height
Else
.Left = Rng.Left
.Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
.Height = .Height * Rng.Width / .Width
.Width = Rng.Width
End If
End With
HLK.Parent.Value = "" '删除单元格的图片链接
End If
Next
End Sub

‘陆’ excel中超级链接直接显示图片

（我一开始认为搞不了。EXCEL的网络连接，需要借助IE等浏览器打开，本身不具备浏览器的模块，所以不能直接在内部打开。）

我抱着试试看的心态，直接插入图片，然后输入了淘宝图片的超级连接，是可以直接插入的，但用时明显多了，大约十几秒。