Excel表格里边的图片较少时，可以逐一使用畹玻召糸手工的方法将它们导出。在图片较多时，手工导出就比较费劲，有什么比较快捷的方法把它们批量导出？
工具/原料
操作设备：计算机
操作系统：Windows7
办公软件：Excel2010
方法一：另存为网页格式
1、打开Excel表格，点击【文件】、【另存为】。
2、选择文件的保存路径，输入文件名称，“保存类型”选择“网页”，点击【保存】。
3、在弹出的提示框里边点击【是】。
4、打开保存路径下方的子文件夹。
5、将会看到Excel表格里边的图片已经被导出。
方法二：使用VBA程序批量导出
1、点击【开发工具】、【VisualBasic】。
2、点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序。SubPicturesExport()Dim咯悝滩镞i1,i2,arr,str,shp,ch,myPathOnErr泠贾高框orResumeNext'忽略运行中可能出现的错误Application.ScreenUpdating=False'关闭工作表更新，提高运行速度myPath="D:\ABCDEFG\"'文件导出路径MkDirmyPath'D盘下面新建《ABCDEFG》文件夹SetmySheet1=ThisWorkbook.Worksheets("Sheet1")'定义Sheet1工作表i2=mySheet1.Shapes.Count'统计Sheet1里面图片的数量Windows(1).Zoom=100'当前窗口放到到100%ForEachshpInmySheet1.Shapes'对每张图片进行扫描Setch=mySheet1.Shapes.AddChart(1,0,0,1,1)'新建图表i1=i1+1'执行次数累积Ifi1>i2Then'执行次数超过图片数，则退出For循环ExitForEndIfshp.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.ExportmyPath&str&".png"'导出图片ch.Delete'删除图表NextApplication.CutCopyMode=False'清空剪切板Application.ScreenUpdating=True'恢复更新显示EndSub
4、确认无误后，在VBE编辑器的功能区里边点击“运行”图标运行程序。
5、程序运行完成后，打开文件导出的文件夹，将会看到已经批量导出的图片。
