Question

如何批量下载excel表中链接上的图片

用vba如何实现？请教！

Answer 1

1、先来看一下，Excel文档中有很多图片，现在就要把他们导出来，关闭Excel

2.右键单击该文件，然后选择【重命名】

3.接着，将后缀名改为rar，也就是压缩包的格式

4.现在Excel文件变身为压缩包

5.打开压缩包，里面有一个xl文件，打开它，然后找到media文件夹，打开它

6.这就是要导出来的图片

7.可以在压缩包中，直接将文件夹拖到桌面，完成。

8.看看在桌面上的media文件夹里

Answer 2

利用迅雷的批量下载。将excel另存为网页，然后利用右键：使用迅雷下载全部链接。就都下载下来了。

Answer 3

有时需要将工作表中的图形对象保存为单独的图像文件，可以使用Export方法将工作表中的图片以文件形式导出，如下面的代码所示。
Sub ExportShp()
Dim Shp As Shape
Dim FileName As String
For Each Shp In Sheet1.Shapes
If Shp.Type = msoPicture Then
FileName = ThisWorkbook.Path & "\" & Shp.Name & ".gif"
Shp.Copy
With Sheet1.ChartObjects.Add(0, 0, Shp.Width + 28, Shp.Height + 30).Chart
.Paste
.Export FileName, "gif"
.Parent.Delete
End With
End If
Next
End Sub