1、先打开一个EXCEL，如下表所示：
2、点击任意图片，右键，如下：我们找不到另存功能
3、看看人家Word
4、看看人家PPT
5、那么怎么将EXCEL中的图片另存为图片文件呢？第一种方法：上面其实已经给出了答案：你品，你细品，EXCEL说：这个我不擅长，你去找WORD或PPT吧，你跟谁熟，就找谁帮忙。第二种方法：也比较简单，将EXCEL另存为网页版文件
6、找到.files文件夹，发现所有的图片都在这里
7、第三种方法：VBAAlt+F11打开VBA编辑器，新建模块，输入下列代码：Sub 批量导出兔脒巛钒图片() Dim shp As Shape With ActiveSheet For Each shp In ActiveSheet.Shapes shp.Copy shp_name = shp.TopLeftCell.Offset(0, -1).Value With .ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart .Parent.Select .Paste .Export ThisWorkbook.Path & "\" & shp_name & ".jpg" .Parent.Delete End With Next End WithEnd Sub
8、按F5运行代码：结果如下：图片被批量导出到该文件所在的文件夹，且名称和单元格匹配。
9、代码注解：Sub 批量导出图片()‘程序名 Dim shp As Shape ‘定义变量 Wit茑霁酌绡h ActiveSheet ‘当前活动工作表 For Each shp In ActiveSheet.Shapes ‘循环每个图形 shp.Copy ’复制当前图形 shp_name = shp.TopLeftCell.Offset(0, -1).Value ‘获取图片名称为图片左上角单元格往左偏移一个单元格的内容 With .ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart '插入图表 .Parent.Select ’选择图表 .Paste ‘粘贴图片 .Export ThisWorkbook.Path & "\" & shp_name & ".jpg" ’导出图片到当前文件夹，且命名为单元格的名称 .Parent.Delete ‘删除图表 End With '与with成对出现 Next ‘与FOR成对出现 End With '与with成对出现End Sub '程序结束