EXCEL VBA批量下载URL链接地址图片、URL链接地址图片转为图片

在EXCEL里，需要大量引用网上链接图片，例如python的爬虫把图片链接爬取之后，需要在EXCEL内展示图片，可以使用VBA批量将URL链接地址图片转为图片；

1.复制以下代码到VBA内，（不知道VBA是什么的传送门：https://blog.csdn.net/weixin_39416561/article/details/82428684）

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.HeightElse.Left = Rng.Left.Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2.Height = .Height * Rng.Width / .Width.Width = Rng.WidthEnd IfEnd WithRng.Value = ""   '删除单元格的图片链接End If
Next
End Sub

2.选中URL单元格，运行VBA即可；

代码会自动根据单元格大小调整图片大小及位置，结果如下：

EXCEL VBA批量下载URL链接地址图片、URL链接地址图片转为图片相关推荐

在Excel中批量下载网络图片，存放到右方单元格或插入到批注，#excel插件
Excel工作表中有图1所示的若干图片网址,否则批量转换成图2所示的结果? 也就是根据A列的网页图片地址批量下载图片,存放到B列中. 图1 以jpg结尾的图片网址图2 插入图片到右方单元格或者能否 ...
python下载图片的命令_网上的图片不知道怎么批量下载？python教你怎么把网站上面的图片都爬下来...
妹子图网站----前言从今天开始就要撸起袖子,直接写Python爬虫了,学习语言最好的办法就是有目的的进行,所以,接下来我将用10+篇的博客,写爬图片这一件事情.希望可以做好. 为了写好爬虫,我们需 ...
android怎么让图片显示在button上面_网上的图片不知道怎么批量下载？python教你怎么把网站上面的图片都爬下来...
## **妹子图网站----前言** 从今天开始就要撸起袖子,直接写Python爬虫了,学习语言最好的办法就是有目的的进行,所以,接下来我将用10+篇的博客,写`爬图片`这一件事情.希望可以做好. 为 ...
Excel VBA批量格式转换：xlsx转pdf、xls、csv以及反向转换
有时候需要把大量的xlsx文件另存为其它格式,比如pdf.xls.csv,或者反向转换,可以用VBA批量处理.启动Excel,按下Alt+F11,打开Microsoft Visual Basic fo ...
利用Excel VBA批量计算长时间序列植被物候动态阈值（逐像元）
本文演示利用Excel VBA编程实现多期栅格数据,逐像元计算物候参数:生长季始期(SOS).生长季末期(EOS)和生长季长度(LOS),计算过程速度快! 说明: (1)利用Raster to Poi ...
利用Excel VBA批量计算气象数据多个台站多年来春季和冬季降水量和平均气温
气象数据是地理数据的重要组成部分,存储量虽然不大,但是处理过程非常繁琐,长时序数据更不用说.本文总结了一个气象数据的基本处理方法. 如下图所示,气象数据的排列格式是区站号→年→月→降水量→平均气温,时 ...
将html保存为图片,html2canvas 将html代码转为图片并保存下来
html2canvas 将html代码转为图片并保存下来发布时间:2018-05-22 10:15, 浏览次数:421 , 标签: html canvas 只是测试了下,在谷歌和360上都可以,但 ...
Excel VBA: 批量删除带删除线的文本
需求的故事是这样的.... 在开发过程中, 我们会使用excel写各式各样的文档, 通常这些文档都是从一个Base修改而来的. 为了便于其他人review, 在做成这些文档的时候, 作成者会使用不同的 ...
Excel VBA 批量转换文件夹下的xlsx文件为pdf（多文件多sheet）
可以在excel工作表中通过宏将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换. Sub TO_PDF()On Error Resume Ne ...
Excel VBA 批量取工作表名称
'批量取工作表名称 Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.NameElseIf x > 0 And x < ...

EXCEL VBA批量下载URL链接地址图片、URL链接地址图片转为图片

EXCEL VBA批量下载URL链接地址图片、URL链接地址图片转为图片相关推荐

最新文章

热门文章