vba html显示图片,Excel VBA实现图片文本网络地址转变为图片

在Excel数据表格中有些网页图片的链接。希望把这些链接转变成对应的图片

通过下面代码，可以先把图片文本地址转变成超链接格式

然后插入图片到链接对应的单元格内，可以先设置单元格的长宽，这样图片会按单元格大小自动生成

Sub HyperlinksToPic()

On Error Resume Next

i = 1

Do While i <= Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 1).Select link = Cells(i, 1).Value ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=link '把文本地址都变成超链接 i = i + 1 Loop 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.Of