在Excel中如何根据姓名自动插入照片

需要用VBA来实现，代码及注释如下：

sub main

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"'获得姓名列第一个数据，并增加后缀gif赋值给变量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 &"图片不存在"'如照片不存在，就d出提示。

Else

ActiveSheet.Pictures.Insert(ThisWorkbook.Path &"\员工照片\" &MyPcName).Select'如存在就插入到Excel中

End If

End If

Next i

end sub

最简单的方法：先看结果 如图1

图1

*** 作如下：如图2

图2

“选择图片路径”找到图片所在的文件夹点“打开”，如图3

图3

全选 文件名称  图4

 图4

导入到单元格 图5

图5

搞定！

插件支持批量导入图片，自动调整大小，等多种功能！

---