纪录片部落-高清纪录片下载»纪录片下载 › 鉴赏和推荐 › 版务处理 › 灵感 › Excel文档中有图片链接，如何批量下载到单元格中

发新帖

查看: 197|回复: 0

[IT] Excel文档中有图片链接，如何批量下载到单元格中

167 主题	205 帖子	5万积分

Rank: 9 Rank: 9 Rank: 9

积分: 51821

发表于 2020-7-9 17:20:21 | 显示全部楼层 |阅读模式

Sub LoadPic(ByVal URL As String, ByVal rng As Range)
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.settext "<table><img src=""" & URL & """ width=""70"" height=""70"">"
.putinclipboard
ActiveSheet.Paste Destination:=rng
End With
Application.CutCopyMode = False
End Sub
Sub 插入图片()
Dim i As Integer
Application.ScreenUpdating = False
ActiveSheet.DrawingObjects.Delete
For i = 2 To 3
LoadPic Cells(i, 2).Value, Cells(i, 1)
Next
Application.ScreenUpdating = True
End Sub

点击复制（BT类链接可使用115网盘或迅雷网盘离线下载）

单元格, 有图片, 文档, 下载, 批量

相关纪录片推荐

小贴士：【影视自媒体解说文案请移步：夏至文案解说网 www.xiazhi.vip】

上一篇：excel调用谷歌翻译-ENTOCH
下一篇：怎样把After Effects CC中文版修改为英文版？

相关帖子

回复

使用道具举报

发新帖

网站地图| Archiver|小黑屋|纪录片下载-纪录片从业者-纪录片部落-电影拍摄-导演知识-电影学习

GMT+8, 2024-11-22 13:57 , Processed in 0.134059 second(s), 25 queries , Gzip On.

Powered by xitonge.com @2010-2024

Copyright © 2010-2024, xitongle.com.

免责说明：本站所有纪录片视频、图文介绍等均来自于互联网网友分享，纪录片部落仅支持web页面展示和文字介绍，绝不提供在线观看和存储服务，也不参与录制、上传、压片。若本站收录内容无意侵犯贵司版权，请发邮件【a885185#163.com】联系本站，我们将在第一时间回复邮件、同时删除侵权内容。谢谢！

快速回复 返回顶部 返回列表