图片链接如何在excel里转成图片_mdf文件怎么转成Excel
2023-06-13 09:14:48 时间
大家好,又见面了,我是你们的朋友全栈君。
前阵子从数据库中导出数据给业务,但是图片是个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 文件导入,运行
如果数据较大可能会比较慢
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/190661.html原文链接:https://javaforall.cn
相关文章
- excel中html批量转化为pdf文件,如何将大量的Excel转换成PDF?
- BufferedWriter导出数据excel文件
- jxls能把html转成excel吗,如何用XLSTransformer生成excel文件?jxls的使用方法
- Excel: 通过VBA代码打开word文件
- excel菜鸟级mysql数据库mysql for excel操作2021.7.23
- 前端必读3.0:如何在 Angular 中使用SpreadJS实现导入和导出 Excel 文件
- Excel学习----一键创建相应“惟一性”的文件,再筛选数据并写入相应的文件中
- Excel-VBA复制工作表到新工作簿方法
- 用matlab导入excel数据画图_matlab导入数据并绘图
- python读取excel单元格内容_python如何读取文件夹下的所有文件
- python怎么读取excel文件_python如何读取文件夹下的所有文件
- python读取excel单元格内容_python如何读取txt文件
- Excel Power Query学习:如何合并两个Excel工作簿
- Excel技巧:快速处理单元格内的换行符
- 报表 MySQL导出Excel数据报表的指南(mysql导出excel)
- 解决PHP生成UTF-8编码的CSV文件用Excel打开乱码的问题详解编程语言
- 数据库用Excel快速导入Oracle数据库(excel导入oracle)
- SQL Server数据导出到Excel的方法(sqlserver导出到excel)
- 文件Linux下快速导出Excel文件(linux导出excel)
- MySQL导入Excel:一步步实现数据导入(mysql导入excel)
- Javascript客户端将指定区域导出到Word、Excel的代码
- jquery实现excel导出的方法
- 不安装excel使用c#创建excel文件
- ThinkPHP基于PHPExcel导入Excel文件的方法
- C#解析Excel并且生成Csv文件代码分析
- jsp导出身份证到excel时候格式不对但以X结尾的却可以