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

15683163545

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

zpy2

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

15683163545

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

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

池盛龙

我可以，实现

aman1516

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

zpy2

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

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

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

zpy2

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

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

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

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

liulang0808

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

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

lilyhcn1

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

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

可能就是显示缩略图吧