本文转载自公众号：Excel函数编程及可视化，原创作者：数据小E。本文著作权归原创作者所有，本人收藏此文仅作为学习之用，不作其他目的，如有侵权，请联系我删除。
小伙伴们平时在制作人员信息表的时候，经常需要插入员工头像，这样方便查找辨认。如果一张张插入的话，又显得略微耗时，这里我们用VBA，批量插入员工头像，只需几秒钟，一劳永逸~
需求说明
Sheet1中，A列为员工姓名，B列是我们要插入图片的地方，确认目标位置，下面开始粘贴图片。
建立头像文件库
在当前工作簿文件目录下，新建一个文件夹，命名为'图片’，将所有员工的图片保存在文件夹内，图片名称用员工姓名命名，如下图所示（ps:如果存在重名员工，可以用01/02表示，或者用员工编号皆可）
输入代码
打开Visual Basic模块，输入以下代码：
Offset偏移函数，如A2.Offset(0,1)代表A2单元格向下偏移0行，向右偏移1列，即B2单元格；ML、MT、MW、MH分别返回单元格的左边、顶部、宽度、高度尺寸； if函数判断图片文件夹中是否存在员工头像照片，如果存在的话，在目标单元格先插入一个矩形,然后再用员工头像去填充这个矩形（这样做的好处是大大减小了文件的大小），这样就完成了头像的插入。
运行代码，展示最终效果
按【F5】键运行代码，可以发现，图片已经粘贴好了~
联系客服
