图片链接如何在excel里转成图片_mdf文件怎么转成Excel

全栈程序员-站长 • 2022年9月22日下午4:36 • 未分类 • 阅读 0

大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE使用 1年只要46元售后保障童叟无欺

前阵子从数据库中导出数据给业务，但是图片是个URL，业务需要在 Excel 中直接显示图片，因此在网上爬了很多VB脚本尝试修改，最终将Excel中的图片URL转换成了图片。

VB脚本 LoadImage.bas ：

' charset GB2312 . Excel 中的图片链接转为图片文件

Attribute VB_Name = "LoadImage加载图片"
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后在查看“宏”里新建一个宏会弹出VB编辑器（或直接打开VB编辑器），然后将这个 LoadImage.bas 文件导入，运行

如果数据较大可能会比较慢

Link: http://www.exceltip.net/thread-22321-1-1.html

发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/190661.html原文链接：https://javaforall.net