在代码窗口输入以下程序：
Sub Rename()On Error Resume NextMkDir ThisWorkbook.Path & "\图片"For Each pic In ShapesIf pic.Type = msoPicture ThenRN = pic.TopLeftCell.Offset(0, -3).Valuepic.CopyWith ActiveSheet.ChartObjects.Add(0, 0, pic.Width, pic.Height).Chart '创建图片.Parent.Select.Paste.Export ThisWorkbook.Path & "\图片\" & RN & ".jpg".Parent.DeleteEnd WithEnd IfNextMsgBox "导出图片完成！"End Sub
如下图：
点击工具栏中的运行，即可将图片导出到文件夹：
打开文件夹，即是命名后的图片：
4
以上就是Excel两种批量导出图片的方法，第一种简单、方便，但不能指定图片名字，第二种虽有点复杂，但可能指定图片名字，方便后期使用。两种方法你都学会了吗？
