曾經(jīng)在2010年10月份介紹了一篇《批量插入圖片》的文章，是在多個(gè)工作表的固定位置中各插入一張圖片，也就是每個(gè)工作表插入一張，有多少工作表就插入多少?gòu)垺?BR>后來(lái)有不少朋友詢問(wèn)，如何在一個(gè)工作表的不同位置中插入不同圖片，于是就做了這個(gè)《批量插入圖片2》。
這個(gè)表格是以建立員工檔案為例，根據(jù)表格中的各員工姓名，將與他們對(duì)應(yīng)的照片插入到工作表中。

方法如下：
1、先建一個(gè)工作表，將它的標(biāo)簽名字改成“員工檔案”

表格的B列是各員工的姓名，E列暫時(shí)空著，一會(huì)兒將照片插入到這個(gè)位置，需要將E列單元格的大小調(diào)整一下，以便使插入的照片大小適中
提示：插入到表格的照片，最終顯示大小是以E列單元格的大小為準(zhǔn)的，也就是說(shuō)不論照片的實(shí)際大小是多少，都會(huì)被VBA縮放成E列單元格的尺寸。

2、準(zhǔn)備幾張員工的照片，保存到硬盤(pán)的指定位置。

此例中，我們的保存位置是"E:\照片\"
在E盤(pán)的根目錄建一個(gè)名為“照片”的文件夾，將照片粘貼進(jìn)去。

3、編寫(xiě)VBA代碼
在EXCEL窗口中按ALT+F11調(diào)出VBA窗口，插入一個(gè)用戶模塊。

模塊插入后會(huì)顯示一個(gè)空白窗口，將下面代碼粘貼進(jìn)去就行了。

Sub 批量插入圖片()
Dim wj As String
Dim rng As Range
Sheets("員工檔案").Select '選中要插入圖片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行號(hào)
For i = 2 To x
    na = Cells(i, 2) '從第二列（即B列）得到員工名字，并以此名查找圖片
    wj = "e:\照片" & "\" & na & ".jpg" '圖片文件存儲(chǔ)的路徑與格式（.jpg）
    If Dir(wj) <> "" Then
        Cells(i, 5).Select '圖片需要插入到第五列（即E列）
        ActiveSheet.Pictures.Insert(wj).Select
        Set rng = Cells(i, 5) '根據(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
MsgBox "圖片插入完畢"
End Sub

4、完成
經(jīng)過(guò)上面步驟就制作完成了，可以使用了。
回到員工檔案的EXCEL窗口，按上面菜單“工具－宏－宏”，調(diào)出“宏”窗口，在里面打到“批量插入圖片”宏，執(zhí)行就可以了。

另外也可在VBA窗口中，點(diǎn)擊工具欄上的三角“運(yùn)行”按鈕來(lái)執(zhí)行這個(gè)宏代碼 。

下面圖片是用“工具－宏－宏”來(lái)執(zhí)行

下面是執(zhí)行代碼后的效果