VBA应用笔记 -- 批量导出excel工作表中的图片

业务场景：

日常工作中，我们可能会遇到需要批量导出excel表中的图片的情况，按照网友的做法，批量导出excel中的图片主要有几种方法：

• 解压缩方法：可以通过将excel文件转成rar压缩文件，解压后将图片复制出来；
• 转htm方法：将excel文件另存为htm文件，将图片复制出来；
• VBA导出方法：通过将图片转成chart对象，利用chart对象导出方法将图片批量导出。

这里主要记录一下使用VBA批量导出的方法。

例如：有如下一个工作表，需要将其中的图片批量导出

---

解决方案：

利用VBA遍历工作表中的所有shape对象，这里的shape对象包括了图片、图标、图表、艺术字、文本框、自定义形状等，由于shape对象没有提供export导出方法，所以通过新建chart对象，并将shape复制粘贴到chart对象中，借助chart对象提供的export方法将图片批量导出。具体参考代码如下：

Sub ExportSheetPictures(