Question

怎么用VBA在Excel中批量把图片url转换为图片

在不移动表头和位置的情况下把url格子转换为图片，然后长宽为600和300。并且图片最好是落在本地，把文件发给别人不用再下载图片!

Answer 1

Sub 链接转图片()

For Each Rng In Selection '循环活动工作表中的各个超链接
If UCase(Rng.Value) Like "*.JPG*" Or UCase(Rng.Value) Like "*.JPEG*" Or UCase(Rng.Value) Like "*.PNG*" Or UCase(Rng.Value) Like "*.GIF*" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断)
'Set Rng = HLK.Parent.Offset(, 0) '设定插入目标图片的位置
With ActiveSheet.Pictures.Insert(Rng.Value) '插入链接地址中的图片
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
Rng.Value = "" '删除单元格的图片链接
End If
Next
End Sub

Answer 2

下面是用VBA将图片加到Excel指定单元格中的代码 Sub Search（) '在调用图片之前... 一只蜗牛的博客 Excel批量打开URL 一个小伙伴想要在Excel中批量打开一批网址。Sub ... 在EXCEL里，需要大量引用网上链接图片，例如python的爬虫把图片链接爬取之后，需...

Answer 3

我有现成的代码，但是只能转JPG格式的，转不了GIF的动态图片

追问

需要改变表的格式么，我这里面没有gif，可以试一下么？

Answer 4

这个需要用代码来实现！我有现成的。
gif动态图片也你转的。

Answer 5

写代码才能实现