人事管理中怎么用Excel批量导入员工照片

准备原始档案表和职工照片，并将员工姓名和一寸照片名称相对应

在F3单元格中输入=<table><img src="C:\photo\弊明档张三.jpg"width="160"height="220">

SRC:照片存储的位置 、width 、height 照片的宽和高

将F列的内容复制到记事本，清空F列的内容，并调职工档案表的宽和高(用像素表示），高调成为220像素，宽调整为160像素。槐纳

CTRL+C将记事本的内容复制到剪切板；

注意：此内容非常的关键租乱，

右击F3单元格，选择“选择性黏贴”，并选择黏贴方式为“Unicode文本”。

至此，完成Excel表格批量添加照片。

用VBA可以批量导入大量图片,前提是你将每个人的头像图片,以其名州粗字命名,这样VBA可以按照你档案里的人员名字,匹配导入.给你段代码参考.具体要看你的员工信息表的格式才好调整。你也可以将文件模册哗镇板上传到百度云然后共享出来，帮你芦哗弄好。

Sub InsertPicture()

Dim MyShape As Shape

Dim r As Integer

Dim c As Integer

Dim PicPath As String

Dim Picrng As Range

With ActiveSheet

For Each MyShape In .Shapes

If MyShape.Type = 13 Then

MyShape.Delete

End If

Next

For r = 2 To .Cells(.Rows.Count,1).End(xlUp).Row Step 3

' For c = 1 To 8 step 2

PicPath = ThisWorkbook.Path&"\图片\" &.Cells(r, 6).Text &".png"

If Dir(PicPath) <>"" Then

Set MyShape =.Shapes.AddPicture(PicPath, False, True, 6, 6, 6, 6)

Set Picrng = .Cells(r, 9)

With MyShape

.LockAspectRatio =msoFalse

.Top = Picrng.Top + 1

.Left = Picrng.Left + 1

.Width =Picrng.Resize(3, 6).Width - 1.5

.Height = Picrng.Resize(3,6).Height - 1.5

.TopLeftCell =""

End With

Else

.Cells(r, 9) = "暂无照片"

End If

Next

'Next

End With

Set MyShape = Nothing

Set Picrng = Nothing

End Sub

材料/工具：电脑、Excel2007

1、首先，打开Excel表格，点击表格最左上边office按钮---excel选项 。

2、d出来一个对话框，点击”常用“栏目，右侧出现常用对话框，我们找到一个叫做“在功能区显示开发者选项卡”，点击勾选它。点击确定。

3、回到打开表格的开始页面，将表格中图片那一列填充对应的款号或编码，注意要插入图片的表格里边在插入图片之前是有编号的，里边的编号就是对应的款号。如图所示点凯李击”Visual Basic“ 快捷键是”ALT+F11 “。

4、然后点击 ”文件“，选择”导入文件“。

5、导入后文件后，窗口上方有一排”宏“的指令，点那个绿色的三角运饥歼行"宏" 三角按钮就是经常用到的”开始/播放“那个按钮点，然后跳出一个对话框，点击”运行“。

6、我们要导入图片的位置，就是把图片存在我们电脑上的哪个位置复制下来填进方框里边去，复制  粘贴就可以了。也可以手动输入进去，但是完成后，一定记得再加一个“\”点确定。

7、点烂孙冲击确定，对话框关闭。我们就回到开始页面了，这时发现我们已经将图片导入表中对应的款式去了。

---