高效如風 Excel表格批量導入圖片

平淡

如果需要插入的圖片不多，可以使用手動的方法快速插入。先在Excel中輸入員工姓名數據，點擊“插入→圖片→來自文件”，插入一張和員工對應的照片到B2。調整B2的大小和照片大小一致（可以略微大一些）。接著全選數據行列，使用鼠標調整行列數值，使得B列所有單元格都能夠放置圖片。

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

如果需要插入的圖片很多，那么還可以借助VBA腳本快速實現。首先將照片名稱更改為與A列中的員工姓名一一對應。接著點擊“開發工具→VB”。在打開的窗口輸入如下代碼（代碼解釋見語句之后半角單引號后的注釋）：

Sub 批量插入圖片（）

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

Dim rng As Range

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

x = [a65536].End（xlUp）.Row 取得最后一行的行號

For i = 2 To x

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

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

If Dir（cfan） <> "" Then

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

ActiveSheet.Pictures.Insert（cfan）. Select

Set rng = Cells（i， 2） 根據單元格的大小調整圖片

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中會新增一個名為“批量插入圖片”的宏，按提示運行這個宏，即可將所有照片按照員工名稱插入到B列對應的單元格中（圖2）。

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