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判断员工照片是否存在。
世友摄像机怎么样图文随着社会的发展,法律体系也越来越完善,事件的解决也更加的公平合理这其中很大一个因素要归功于证据,因此在容易发生事件的地方安装摄像头已经是现代人普遍的意识。今天要介绍的就是一款国产的
哪个品牌的dv好热门品牌推荐图文Dv也就是摄像机,大家都很熟悉,目前市场上的dv品牌有很多,如索尼松下佳能三星欧达JVA爱国者明基海尔等等这些国内国外的十大dv品牌。而这些品牌旗下还有很多型号的dv产品,其价格性
索尼闪存摄像机推荐及其报价图文现在科技越来越发达,市面上的电子品牌也是越来越多,索尼就是市面上非常著名的一个日本品牌。它是日本一家大型综合企业,在全球都享有一定的知名度,也占有很高的地位。它在全球的很多领域都是
dv机哪个好热门款最新推荐图文数码摄像机就是,是DigitalVideo的缩写,译成中文就是数字视频的意思,它是多家著名家电巨擘联合制定的一种数码视频格式。而且随着数码电子技术的不断发展,DV的产品性能参数种类
联想看家宝mini版摄像头评测图文越来越多的消费者对一些智能家居开始慢慢的关注起来。今天小编要为大家介绍的智能家居产品就是ldquo第三只眼rdquomdashmdash联想看家宝mini,这款是联想集团生产的第三
山寨摄像机与正品摄像机对比及介绍图文摄像机在我们日常生活的应用比较广泛,目前市场上的摄像机品牌也比较多,当然在市场上还有一些山寨摄像机,那么山寨摄像机有什么特点呢,山寨摄像机与正品摄像机又有什么区别呢!相信这也是大家
索尼最新摄像机推荐图文电视转播拍摄录制等等都离不开摄影机,有了摄影机的帮助才能够拍摄各种各样的视频,让观众看到电视剧综艺节目新闻电影微电影等等,可以说摄像机在人们的生活中起着非常重要的作用。假如自己有导
sony数码摄像机报价及推荐介绍图文数码摄像机是一种录像设备,它与相机不同的是可以记录事件发生的全过程,而不是单单的将一个瞬间画面记录下来,因此更加的真实,能够给人带来更多的回忆。Sony是目前国际上公认的最好的数码
三防摄像机热门款型推荐图文近年来户外运动爱好者和极限挑战爱好者的人数急剧增加,户外运动摄像机的消费数额也在逐年增长。而相比于其他的户外运动装备来说,户外运动摄像机的产品性能要更为丰富,因此针对这种市场需求,
夜视效果好的摄像机推荐图文我想大家对摄像机并不陌生,摄像机在我们的实际生活中比较普及了,当然市场上,我们所能见到的摄像机品牌也比较多,不同品牌的摄像机,它们的功能,价格,外观等等各方面都各不相同。而今天小编
sony磁带摄像机推荐图文导语索尼是世界著名的品牌,旗下产品众多,种类多样化,在数码产品的领域中,设计新颖独特,深得很多用户的喜爱。摄影机是索尼主打的产品之一,其中比较传统的摄像机就是磁带摄像机了,磁带摄像