如何批量下载excel表中链接上的图片
发布网友
共3个回答
热心网友
展开3全部
1、先来看一下，Excel文档中有很多图片，现在就要把他们导出来，关闭Excel
2.右键单击该文件，然后选择【重命名】
3.接着，将后缀名改为rar，也就是压缩包的格式
4.现在Excel文件变身为压缩包
5.打开压缩包，里面有一个xl文件，打开它，然后找到media文件夹，打开它
6.这就是要导出来的图片
7.可以在压缩包中，直接将文件夹拖到桌面，完成。
8.看看在桌面上的media文件夹里
热心网友
利用迅雷的批量下载。将excel另存为网页，然后利用右键：使用迅雷下载全部链接。就都下载下来了。
热心网友
有时需要将工作表中的图形对象保存为单独的图像文件，可以使用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
参考资料：http://wenku.baidu.com/view/709a62160b4e767f5acfcedd.html
