excal图片网址链接批量转换为图片问题

15683163545 · 发表于 2020-12-28 12:00

我是通过钉钉软件导出的数据，导出来的数据汇总表格将照片显示为了网址形式，是否可以将网址批量转换为图片形式，谢谢

zpy2 · 发表于 2020-12-28 14:27

可以用浏览器下载比较方便

15683163545 · 发表于 2020-12-28 17:42

本帖最后由 15683163545 于 2020-12-28 17:43 编辑

zpy2 发表于 2020-12-28 14:27
可以用浏览器下载比较方便

感谢帮忙，主要是我们的数据量很大，目前就有几百上千条，用浏览器单独下载效率太低了，我就想能不能用vba直接显示出来网址所含的照片，照片我们只需要可以查看就行了

池盛龙 · 发表于 2020-12-28 19:53

我可以，实现

aman1516 · 发表于 2020-12-28 20:38

如何将表格中的图片链接转化成图片显示在表格中
http://club.excelhome.net/thread-1562111-1-1.html

zpy2 · 发表于 2020-12-28 20:49

15683163545 发表于 2020-12-28 17:42
感谢帮忙，主要是我们的数据量很大，目前就有几百上千条，用浏览器单独下载效率太低了，我就想能不能用vb ...

浏览器单独下载效率太低了

效率高低是不是图片显示加载的速度？可以，对比一下5楼的方案测试一下。

zpy2 · 发表于 2020-12-28 20:51

zpy2 发表于 2020-12-28 20:49
浏览器单独下载效率太低了

效率高低是不是图片显示加载的速度？可以，对比一下5楼的方案测试一下。

就想能不能用vba直接显示出来网址所含的照片，照片我们只需要可以查看就行了

不太理解什么是直接显示？图片在网络上，不下载，如何显示，如何查看？

liulang0808 · 发表于 2020-12-28 21:06

Sub 按钮1_Click()
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
      If Len(arr(i, 1)) > 0 Then
         r = 1
         brr = Split(Chr(10) & arr(i, 1), Chr(10))
         For j = 1 To UBound(brr)
            If Len(brr(j)) > 0 Then
                  r = r + 1
                  ActiveSheet.Shapes.AddPicture brr(j), False, True, Cells(i, r).Left, Cells(i, r).Top, Cells(i, r).Width, Cells(i, r).Height
            End If
         Next j
      End If
Next
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2020-12-28 21:06

附件内容供参考，多张图片

lilyhcn1 · 发表于 2020-12-28 21:25

zpy2 发表于 2020-12-28 20:51
就想能不能用vba直接显示出来网址所含的照片，照片我们只需要可以查看就行了

不太理解什么是直接显示 ...

可能就是显示缩略图吧

		自动登录	找回密码
密码			免费注册

[求助] excal图片网址链接批量转换为图片问题

评分

评分

评分