Excel 2010 VBA 批量插入和导出图片

简介：
本教程详细介绍如何使用Excel 2010的VBA功能批量插入和导出图片，帮助用户提高数据处理效率。 以前使用Excel 2003开发了一些宏，在网上有不少粉丝支持。然而由于某些功能在Excel 2010版本中的不兼容性问题，我重新整理了这些宏，并进行了测试以确保它们能在Excel 2010中正常运行；请确保您的EXCEL没有禁用宏。 以下是本Excel文档包含的功能： **插入图片1** - 点击执行后会出现文件夹选择窗口，请选择您需要插入的JPG图片所在的文件夹（而非单个文件）。 - 宏将自动复制Sheet2到新工作簿，并在B列中插入选定文件夹中的所有JPG图片，同时对应的名字会自动生成并填入C列单元格内。 - 图片大小默认适应于Sheet2的B3单元格尺寸。因此，在执行宏之前调整该单元格的大小可以控制最终插入到Excel文档中的图片尺寸。 **插入图片2** - 点击后同样会出现文件夹选择窗口，供用户挑选JPG图片所在的文件夹。 - 宏将自动复制Sheet3至新的工作簿，并在其中生成一个图册形式展示所有选定文件夹内的JPG图片。同时每个图像下方会显示其对应的名称。 **插入图片3** 如果您的Excel文档中有一列是型号，该宏可以依据这些型号从指定的文件夹内找到相应的JPG格式的图片并将其插入到另一列。 - 打开本Excel工作簿，并保持开启状态；然后打开您需要操作的目标工作表。 - 按Ctrl+I键（或手动执行宏）选择InsertPic3选项； - 在弹出窗口中，指定型号所在的列、目标列以及开始行号等信息。 - 图片尺寸将自动适应于用户设定的起始单元格大小。 **删除活动工作表中的所有图片** 按Ctrl+D键（或手动执行宏）选择DelPic选项可以清除当前激活的工作表内所有的JPG格式图像。（不局限在本工作簿中） **导出被选中的单张图片** 通过点击Ctrl+E键并执行OutputOnePic宏，可以选择一张图，并将其保存为单独文件。 **批量导出所有JPG图片** 按Ctrl+F（或手动执行宏）选择OutputAllPic选项可以将活动表的所有JPG格式图像一次性全部导出。用户需要指定哪些列包含原始的和新的名字信息。 - 所有输出的图片都将被存储在桌面上新建的一个名为OutputPic的文件夹中。 **对指定文件夹中的JPG进行重命名** 按Ctrl+R（或手动执行宏）选择RenamePic选项，使用当前工作表内的所有图像旧名与新名对照信息来重新命名特定目录下的所有图片。用户需要确定哪些列包含原始名字和新的名称。 - 如果操作成功，则会在原文件夹下创建一个名为“New”的子文件夹，并将重命名后的照片保存在此处。 请确保在执行宏前您的Excel没有禁用宏功能，以保证这些工具能够正常运行。