在Excel中如何使用VBA根据姓名自动插入照片
一、前提条件
在Excel的单元格中，已输入人物的姓名，并且，在姓名的下面，留有空的单元格待插入相应的图片。
如下图一样。比如，B1是姓名，而B3则是要根据张三这个姓名，自动将张三这个人的照片插入到B3中。其它以此类推。
这得使用VBA来完成。
同时，人物的照片所在的文件夹，和Excel工作薄，在相同的路径，比如，下图的位置。
另外，每个员工的照片的名称，都是按照员工的姓名来命名的，如下图。
像这样的问题需求，是具备一定规律的，因此，能使用VBA来完成。
二、实现方法
打开你的Excel，然后执行菜单操作：“工具”→“宏”→“宏”;弹出如下图对话框。
上图中，宏名那里，输入 AutoAddPic ，然后，点击“创建”按钮，弹出代码输入窗口，如下图。
代码如上图，请书写完整，否则会发生异常。为方便大家的学习，下面将代码写为下文，以供参考：
'自动插入图片前，删除所有图片
For Each Shp In ActiveSheet.Shapes
If Shp.Type = msoPicture Then Shp.Delete
Next
Dim MyPcName As String
For i = 1 To ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
If (ActiveSheet.Cells(i, 1).Value = "姓名") Then
MyPcName = ActiveSheet.Cells(i, 2).Value & ".gif"
'MsgBox "图片的完整路径是" & ThisWorkbook.Path & "员工照片" & MyPcName
ActiveSheet.Cells(i + 2, 2).Select '选择要插入图片的单元格作为目标
Dim MyFile As Object
Set MyFile = CreateObject("Scripting.FileSystemObject")
If MyFile.FileExists(ThisWorkbook.Path & "员工照片" & MyPcName) = False Then
MsgBox ThisWorkbook.Path & "员工照片" & MyPcName & "图片不存在"
Else
'在选定的单元格中插入图片
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "员工照片" & MyPcName).Select
End If
End If
Next i
书写完代码以后，点击窗口中的保存，然后关闭代码窗口，返回Excel窗口。
接着，执行菜单操作：“工具”→“宏”→“宏”，弹出如下图。
选中上面所创建的宏名 AutoAddPic ，然后，点击“执行”按钮，这样，Excel就会根据每个姓名找到所对应的照片，将照片插入到每一个人所对应的相应的单元格。
三、知识扩展
ThisWorkbook.ActiveSheet.UsedRange.Rows.Count 该行代码的含义是，获取工作表中的有效数据的最大行。
If (ActiveSheet.Cells(i, 1).Value = "姓名") 判定第一列中的各行，其内容是否为“姓名”二字，是姓名就去找图片来插入，否则就不找。
MyPcName = ActiveSheet.Cells(i, 2).Value & ".gif" 获取每个人的照片名称，如 青山.gif
ThisWorkbook.Path & "员工照片" & MyPcName 获取每个人的照片所在的路径，是完整的绝对路径，而不是相对路径。
ActiveSheet.Cells(i + 2, 2).Select '选择要插入图片的单元格作为目标，即哪个单元格要插入图片，就选中哪个
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "员工照片" & MyPcName).Select '在选定的单元格中插入图片
If MyFile.FileExists(ThisWorkbook.Path & "员工照片" & MyPcName) = False Then 判断员工照片是否存在
推荐系统
番茄花园 Windows 10 极速企业版 版本1903 2022年7月(32位) ISO镜像快速下载
语言：中文版系统大小：3.98GB系统类型：Win10番茄花园 Windows 10 32位极速企业版 v2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动激活
新萝卜家园电脑城专用系统 Windows10 x86 企业版 版本1507 2022年7月(32位) ISO镜像高速下载
语言：中文版系统大小：3.98GB系统类型：Win10新萝卜家园电脑城专用系统 Windows10 x86企业版 2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程
笔记本&台式机专用系统 Windows10 企业版 版本1903 2022年7月(32位) ISO镜像快速下载
语言：中文版系统大小：3.98GB系统类型：Win10笔记本台式机专用系统 Windows 10 32位企业版 v2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过
笔记本&台式机专用系统 Windows10 企业版 版本1903 2022年7月(64位) 提供下载
语言：中文版系统大小：3.98GB系统类型：Win10笔记本台式机专用系统 Windows10 64专业版 v2022年7月 一、系统主要特点： 使用微软Win10正式发布的专业版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动
雨林木风 Windows10 x64 企业装机版 版本1903 2022年7月(64位) ISO镜像高速下载
语言：中文版系统大小：3.98GB系统类型：Win10新雨林木风 Windows10 x64 企业装机版 2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动激活
深度技术 Windows 10 x64 企业版 电脑城装机版 版本1903 2022年7月(64位) 高速下载
语言：中文版系统大小：3.98GB系统类型：Win10深度技术 Windows 10 x64 企业TLSB 电脑城装机版2022年7月 一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程
电脑公司 装机专用系统Windows10 x64 企业版2022年7月(64位) ISO镜像高速下载
语言：中文版系统大小：3.98GB系统类型：Win10电脑公司 装机专用系统 Windows10 x64 企业TLSB版2022年7月一、系统主要特点： 使用微软Win10正式发布的企业TLSB版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过
新雨林木风 Windows10 x86 企业装机版2022年7月(32位) ISO镜像高速下载
语言：中文版系统大小：3.15GB系统类型：Win10新雨林木风 Windows10 x86 专业版 2022年7月 一、系统主要特点： 使用微软Win10正式发布的专业版制作； 安装过程全自动无人值守，无需输入序列号，全自动设置； 安装完成后使用Administrator账户直接登录系统，无需手动设置账号。 安装过程中自动激活系统，无
热门系统
- 1华硕笔记本&台式机专用系统 GhostWin7 32位正式旗舰版2018年8月(32位)ISO镜像下载
系统大小：3.13GB系统类型：Win7 - 2雨林木风 Ghost Win7 SP1 装机版 2020年4月(32位) 提供下载
系统大小：3.13GB系统类型：Win7 - 3深度技术 Windows 10 x86 企业版 电脑城装机版2018年10月(32位) ISO镜像免费下载
系统大小：3.98GB系统类型：Win10 - 4电脑公司 装机专用系统Windows10 x86喜迎国庆 企业版2020年10月(32位) ISO镜像快速下载
系统大小：3.98GB系统类型：Win10 - 5深度技术 Windows 10 x86 企业版 六一节 电脑城装机版 版本1903 2022年6月(32位) ISO镜像免费下载系统大小：3.98GB系统类型：Win10
- 6深度技术 Windows 10 x64 企业版 电脑城装机版2021年1月(64位) 高速下载系统大小：3.98GB系统类型：Win10
- 7新萝卜家园电脑城专用系统 Windows10 x64 企业版2019年10月(64位) ISO镜像免费下载
系统大小：3.98GB系统类型：Win10 - 8新萝卜家园 GhostWin7 SP1 最新电脑城极速装机版2018年8月(32位)ISO镜像下载
系统大小：3.13GB系统类型：Win7 - 9电脑公司Ghost Win8.1 x32 精选纯净版2022年5月(免激活) ISO镜像高速下载
系统大小：3.45GB系统类型：Win8 - 10新萝卜家园Ghost Win8.1 X32 最新纯净版2018年05(自动激活) ISO镜像免费下载
系统大小：3.45GB系统类型：Win8
热门文章
- 1华为手环6pro有游泳功能吗-支持游泳模式吗
- 2重装上阵新赛季有哪些重型武器_重装上阵新赛季重型武器列表
- 3使用win7中本地搜索功能时四个技巧快速找到文件的操作方如何用win7的搜索功能法
- 4premiere怎么更改素材序列? premiere更改序列设置的方法
- 5天天酷跑布鲁与冰原狼仔哪一个好 布鲁好还是冰原狼仔好
- 6斐讯k1路由器刷Breed BootLoader（不死UBoot）教程
- 7路由器密码忘了怎么办 无线路由器登陆密码忘了解决方法【详解】
- 8战双帕弥什超频晶币极如何获得_战双帕弥什超频晶币极获得方法
- 9Redmi AirDots 3 Pro体验如何 Redmi AirDots 3 Pro详细评测
- 10安全事件应急响应工具箱
常用系统
- 1番茄花园 Windows 10 新春特别 极速企业版 2021年2月(32位) ISO镜像快速下载系统大小：3.98GB系统类型：Win10
- 2电脑公司Ghost Win8.1 X64位 六一节 纯净版2020年6月(自动激活) ISO镜像快速下载
系统大小：3.96GB系统类型：Win8 - 3番茄花园Ghost Win8.1 x64 办公纯净版2020年12月(激活版) ISO镜像高速下载
系统大小：3.96GB系统类型：Win8 - 4深度技术Ghost Win8.1 x32位 特别纯净版2019年8月(免激活) ISO镜像高速下载
系统大小：3.45GB系统类型：Win8 - 5雨林木风Ghost Win8.1 (X32) 快速纯净版2020年7月(免激活) ISO镜像快速下载
系统大小：3.45GB系统类型：Win8 - 6电脑公司 装机专用系统Windows10 x64 企业版2022年3月(64位) ISO镜像高速下载系统大小：3.98GB系统类型：Win10
- 7深度技术 GHOSTXPSP3 电脑城极速装机版 2022年7月 ISO镜像高速下载
系统大小：3.96GB系统类型：WinXP - 8笔记本&台式机专用系统 GhostWin7 32位旗舰版2020年7月(32位) ISO镜像免费下载
系统大小：3.13GB系统类型：Win7 - 9番茄花园Ghost Win7 x64 SP1稳定装机版2019年10月(64位) 高速下载
系统大小：3.91GB系统类型：Win7 - 10新萝卜家园电脑城专用系统 Windows10 x86 企业版2019年4月(32位) ISO镜像免费下载系统大小：3.98GB系统类型：Win10