建立头像文件库
在当前工作簿文件目录下,新建一个文件夹,命名为‘图片’,将所有员工的图片保存在文件夹内,图片名称用员工姓名命名,如下图所示(ps:如果存在重名员工,可以用01/02表示,或者用员工编号皆可)
输入代码
打开Visual Basic模块,输入以下代码:
Offset偏移函数,如A2.Offset(0,1)代表A2单元格向下偏移0行,向右偏移1列,即B2单元格;ML、MT、MW、MH分别返回单元格的左边、顶部、宽度、高度尺寸; if函数判断图片文件夹中是否存在员工头像照片,如果存在的话,在目标单元格先插入一个矩形,然后再用员工头像去填充这个矩形(这样做的好处是大大减小了文件的大小),这样就完成了头像的插入。
运行代码,展示最终效果
按【F5】键运行代码,可以发现,图片已经粘贴好了~
以上就是插入员工头像的小教程,感兴趣的小伙伴可以尝试下~