怎么用VBA在Excel中批量把图片url转换为图片

Posted 2023-05-16

在不移动表头和位置的情况下把url格子转换为图片，然后长宽为600和300。并且图片最好是落在本地，把文件发给别人不用再下载图片!

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.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
Rng.Value = "" '删除单元格的图片链接
End If
Next
End Sub 参考技术A 下面是用VBA将图片加到Excel指定单元格中的代码 Sub Search（) '在调用图片之前... 一只蜗牛的博客 Excel批量打开URL 一个小伙伴想要在Excel中批量打开一批网址。Sub ... 在EXCEL里，需要大量引用网上链接图片，例如python的爬虫把图片链接爬取之后，需... 参考技术B 我有现成的代码，但是只能转JPG格式的，转不了GIF的动态图片追问

需要改变表的格式么，我这里面没有gif，可以试一下么？

参考技术C 这个需要用代码来实现！我有现成的。
gif动态图片也你转的。 参考技术D 写代码才能实现

如何用VBA将excel中的数据转化成word文档

如图，我想生成一个word文档，里面的圈红色的地方 可以用EXCEL表中的数字代替（包括门店信息，电子券信息和收回，收回占比信息。跪求代码！！！！

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制;
步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定;
　　此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊!确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处;
　　区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢! 参考技术A word中合并邮件功能，能转换成word文档