Excel自动插入jpg图片或png图片 VBA 工具 模块

在工作中，经常需要将一个商品表格插入商品的图片，比如在鞋服箱包等行业，那是经常要用到Excel中的商品需要插入商品的图片，如果一个个的插入，那会疯掉的，所以根据自己所在的鞋业行业，和借鉴了前辈的部分代码，最终开发出这个工具——Excel自动插入图片的vba。 自己的Excel 2013中亲测可用，不管是xls格式，还是xlsx格式，都正常使用。

【注意事项】

1、只有扩展名为【xls】或【xlsm】才可以存储带宏的Excel。重要！重要！重要！

Excel 2003的扩展名为xls，也属于老版本的Excel，此版本的Excel可以直接保存带宏的Excel文件。

而Exce 2007及以上版本的，标准的Excel的扩展名为xlsx，但是此扩展名的文件是不能保存带宏的Excel，只能另存为“Excel 启用宏的工作簿(*.xlsm)”的格式才可以保存带宏的Excel，此时的扩展名为xlsm。

2、图片格式支持：jpg、jpeg和png。

3、插入图片时，是从第2行开始插入，因为第一行一般为标题

4、插入的图片是等比缩放的，且居中显示，而且图片属性为：大小和位置随单元格而变，设置这个属性后，当删除整行数据时，该行的图片也会一并删除

【使用步骤】

一、下载【Excel自动插入图片的VBA模块.bas】文件

下载地址（二选一，csdn的下载地址明明设置了不要积分的，系统老是自动加上，真是无语了）：

链接:

提取码: ps88

二、制作Excel工具文件

首先，准备一个空的 【 xls】 或 【 xlsm】 扩展名的Excel文件，不管使用那种文件格式，都必须先准备一个这样的空文件，作为一个工具文件，以后这个文件可以一直重复使用，文件名可以命名为：自动插图工具.xls或自动插图工具.xlsm。

注：如果Excel是2007或以上的格式，需要新建一个普通的Excel文件，然后通过另存来创建一个 【 xls】 或 【 xlsm】 扩展名的Excel文件。

打开新建的 【 xls】 或 【 xlsm】 文件，按快捷键【Alt+F11】（或点击顶部的【开发工具】->【Visual Basic】，如果没有【开发工具】这个标签页，那就是隐藏了，需要自己调出来）进入Visual Basic编辑器中。

进入Visual Basic编辑器后，依次点击菜单：【文件】->【导入文件】，然后选择第一步所下载的【Excel自动插入图片的VBA模块.bas】文件，导入后，就会在模块下面自动增加一个【自动插入图片】的模块。如下图所示：

最后按【Ctrl+S】（【文件】->【保存】）保存文件，保存后就可以退出Visual Basic编辑器（直接右上角关闭即可），此时只是关闭了Visual Basic编辑器的窗口，Excel文件还是打开的，然后再保存一下该Excel文件就可以关闭该Excel工具文件了。

自此，自动插图的Excel工具文件就制作完成了，以后可以重复使用。

三、开始自动插图

先打开第二步准备的自动插图工具文件（简称：工具文件），然后在打开要插图的那个Excel文件（简称：插图文件）。

在“插图文件”中进行如下操作，找到【宏】菜单按钮（菜单【视图】->【宏】，或者，【开发工具】->【宏】），点击它，如下图所示，Excel会自动找到工具文件中的自动插图的“InsertPicture”宏，此处就可以利用它来插图：

最后点击【宏】窗口的【执行】按钮即可。

执行宏后，会依次提示3次输入框，分别是：

1、输入款号所在列的名称，也就是款号在哪一列

2、输入插入图片所在列的名称，也就是图片插到哪一列

3、输入图片文件存放的文件夹路径，也就是指定图片文件放在哪个文件夹了

【实际案例】

1、款号在A列，所以第一个输入框输入：A

2、图片插入到B列，所以第二个输入框输入：B

3、我的图片文件夹存放在“E:\FX_Image”，所以第三个输入框输入：E:\FX_Image

自此就完成了向Excel中自动插入图片的操作。

【扩展知识】

如果是大神，可以自己编辑第一步下载的【Excel自动插入图片的VBA模块.bas】文件，里面可以修改各种参数，比如放置图片的单元格的宽高等等。