怎么将excel中的url批量转化为图片

第一步：Excel文件格式先设置为：Excel启用宏的工作簿(*.xlsm)

第二步：1.复制代码（代码在最后面），打开VBA代码编辑窗口（快捷键Alt+F11）              2.粘贴Excel批量生成图片代码，保存代码，关闭VBA

第三步：调整单元格宽高一致（建议按照像素大小）

第四步：运行宏，实现URL链接生成图片

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