平淡

如果需要插入的圖片不多，可以使用手動(dòng)的方法快速插入。先在Excel中輸入員工姓名數(shù)據(jù)，點(diǎn)擊“插入→圖片→來(lái)自文件”，插入一張和員工對(duì)應(yīng)的照片到B2。調(diào)整B2的大小和照片大小一致（可以略微大一些）。接著全選數(shù)據(jù)行列，使用鼠標(biāo)調(diào)整行列數(shù)值，使得B列所有單元格都能夠放置圖片。

定位到B2，點(diǎn)擊“插入→圖片”，然后按住Ctrl鍵選中需要插入的圖片（選擇圖片的順序要和姓名列員工的順序一致），這樣所有圖片都可以插入到表格中。選中最后一張插入的照片，將其移動(dòng)到對(duì)應(yīng)的B列位置。按住Ctrl+A全選照片，點(diǎn)擊“圖片工具→格式→組合”，依次進(jìn)行“左對(duì)齊”和“縱向分布”即可（圖1）。

如果需要插入的圖片很多，那么還可以借助VBA腳本快速實(shí)現(xiàn)。首先將照片名稱(chēng)更改為與A列中的員工姓名一一對(duì)應(yīng)。接著點(diǎn)擊“開(kāi)發(fā)工具→VB”。在打開(kāi)的窗口輸入如下代碼（代碼解釋見(jiàn)語(yǔ)句之后半角單引號(hào)后的注釋?zhuān)?/p>

Sub 批量插入圖片（）

Dim cfan As String 設(shè)置一個(gè)名為cfan字符串，將其作為圖片路徑變量

Dim rng As Range

Sheets（"SHeet1"）.Select 選中要插入圖片的工作表

x = [a65536].End（xlUp）.Row 取得最后一行的行號(hào)

For i = 2 To x

na = Cells（i， 1） 從第1列（即A列）得到圖片名稱(chēng)，并以此名查找指定位置的圖片

cfan = "e：＼員工照片" & "＼" & na &".png" 指定圖片實(shí)際保存位置和格式

If Dir（cfan） <> "" Then

Cells（i， 2）.Select 圖片需要插入到第2列

ActiveSheet.Pictures.Insert（cfan）. Select

Set rng = Cells（i， 2） 根據(jù)單元格的大小調(diào)整圖片

With Selection

.Top = rng.Top + 1

.Left = rng.Left + 1

.Width = rng.Width - 1

.Height = rng.Height - 1

End With

End If

Next

End Sub

這樣，在Excel中會(huì)新增一個(gè)名為“批量插入圖片”的宏，按提示運(yùn)行這個(gè)宏，即可將所有照片按照員工名稱(chēng)插入到B列對(duì)應(yīng)的單元格中（圖2）。

（為免去錄入的麻煩，代碼可直接下載： https：//pan.baidu.com/ s/1o8sXq6A，密碼： 7kim）。endprint