首页 > Excel专区 > Excel函数 >

一键搞定 excel VBA批量插入员工照片

Excel函数 2023-01-08

平时在制作人员信息表的时候,经常需要插入员工头像,这样方便查找辨认。如果一张张插入的话,又显得略微耗时,这里我们用VBA,批量插入员工头像,只需几秒钟,一劳永逸~

需求说明

Sheet1中,A列为员工姓名,B列是我们要插入图片的地方,确认目标位置,下面开始粘贴图片。

一键搞定 VBA批量插入员工照片

建立头像文件库

在当前工作簿文件目录下,新建一个文件夹,命名为‘图片’,将所有员工的图片保存在文件夹内,图片名称用员工姓名命名,如下图所示(ps:如果存在重名员工,可以用01/02表示,或者用员工编号皆可)

一键搞定 VBA批量插入员工照片

输入代码

打开Visual Basic模块,输入以下代码:

一键搞定 VBA批量插入员工照片

Offset偏移函数,如A2.Offset(0,1)代表A2单元格向下偏移0行,向右偏移1列,即B2单元格;ML、MT、MW、MH分别返回单元格的左边、顶部、宽度、高度尺寸; if函数判断图片文件夹中是否存在员工头像照片,如果存在的话,在目标单元格先插入一个矩形,然后再用员工头像去填充这个矩形(这样做的好处是大大减小了文件的大小),这样就完成了头像的插入。

运行代码,展示最终效果

按【F5】键运行代码,可以发现,图片已经粘贴好了~

一键搞定 VBA批量插入员工照片

以上就是插入员工头像的小教程,感兴趣的小伙伴可以尝试下~


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.