如何将Excel里边的图片批量导出？

1、打开Excel表格，点击【文件】、【另存为】。

2、选择文件的保存路径，输入文件名称，“保存类型”选择“网页”，点击【保存】。

3、在弹出的提示框里边点击【是】。

4、打开保存路径下方的子文件夹。

5、将会看到Excel表格里边的图片已经被导出。

1、点击【开发工具】、【Visual Basic】。

2、点击【插入】、【模块】。

3、在模块代码框里边输入以下VBA程序。

Sub PicturesExport()

Dim i1, i2, arr, str, shp, ch, myPath

On Error Resume Next                  '忽略运行中可能出现的错误

Application.ScreenUpdating = False    '关闭工作表更新，提高运行速度

myPath = "D:\ABCDEFG\"    '文件导出路径

MkDir myPath              'D盘下面新建《ABCDEFG》文件夹

Set mySheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义Sheet1工作表

i2 = mySheet1.Shapes.Count  '统计Sheet1里面图片的数量

Windows(1).Zoom = 100       '当前窗口放到到100%

For Each shp In mySheet1.Shapes '对每张图片进行扫描

  Set ch = mySheet1.Shapes.AddChart(1, 0, 0, 1, 1) '新建图表

  i1 = i1 + 1      '执行次数累积

  If i1 > i2 Then  '执行次数超过图片数，则退出For循环

   Exit For

  End If

  shp.Copy                   '复制图片

  str = shp.Name             '获取图片名称

  ch.Height = shp.Height     '图表高度=图片高度

  ch.Width = shp.Width       '图表宽度=图片宽度

  ch.Chart.Paste             '把图片粘贴到图表里边

  ch.Fill.Visible = msoFalse '图表背景无填充

  ch.Line.Visible = msoFalse '图表边框无线条

  ch.Chart.Export myPath & str & ".png" '导出图片

  ch.Delete  '删除图表

Next

Application.CutCopyMode = False    '清空剪切板

Application.ScreenUpdating = True  '恢复更新显示

End Sub

4、确认无误后，在VBE编辑器的功能区里边点击“运行”图标运行程序。

5、程序运行完成后，打开文件导出的文件夹，将会看到已经批量导出的图片。

1、Excel表格批量导出图片总结：

1、将Excel表格另存为htm格式导出的图片比较快捷，但导出的图片名称、大小等不受控制。

2、VBA程序虽然不能直接导出Excel表格里面的图片，但可以借助图表导出的形式将图片批量导出。

3、使用VBA程序导出图片时，Excel窗口要放大到100%，以免导出的图片出现偏差。

4、每扫描一张图片后新建一张图表再删除，这样执行的速度相对较快。

5、图表的边框要设置成无线条，以免导出的图片带有黑色边框。