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

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

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

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

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

写代码才能实现