【20190129】- 在Excel名冊中自動批量插入照片

L羅樂 2019-01-29

展開全文

大家好，我是中藥黨。

馬上就過春節(jié)了，先祝各位一直陪伴走來的小伙伴們新年快樂，過春節(jié)就好好休息放松，有張有弛才能更好地學(xué)習(xí)進(jìn)步。

今天我們分享一個簡單的Excel自動批量插入圖片的技巧，雖然很簡單，但在工作中還是很常用的，案例如下：

現(xiàn)在有一個Excel員工名冊，還有一個文件夾存放著員工照片，現(xiàn)在需要將員工照片批量插入名冊中。

在日常工作中經(jīng)常需要在工作表插入圖片，并且有的時候需要在指定位置插入大量圖片，通過手工操作的方式來進(jìn)行這些繁瑣的工作既要浪費(fèi)大量的時間而且非常容易出錯，如果用VBA就能快速完成這一系列繁瑣的操作。

1.定義相關(guān)變量

iRow：用來循環(huán)遍歷的行號

photo：用來臨時存儲每次循環(huán)插入到工作表的圖片對象

Target：用來設(shè)定照片放置的基準(zhǔn)單元格

pic_addr：用來設(shè)定照片在計算機(jī)的存放路徑

下圖設(shè)置的是絕對路徑，也可以通過Thisworkbook.path設(shè)置相對路徑更加方便移植。

2.按行遍歷插入照片

①按行遍歷數(shù)據(jù)表

②將與當(dāng)前行姓名列名稱相同的圖片插入

③設(shè)置當(dāng)前行的基準(zhǔn)單元格

④再將剛插入的照片按照基準(zhǔn)單元格設(shè)置位置和大小

完整代碼如下：

 1Sub 批量插入圖片()
 2
 3    Dim iRow As Integer
 4    Dim photo As Picture
 5    Dim Target As Range
 6    Dim pic_addr As String
 7
 8    pic_addr = ThisWorkbook.Path & '\pic\'
 9
10
11    With ActiveSheet
12        For iRow = 2 To .Cells(65535, 1).End(xlUp).Row
13
14          Set photo = .Pictures.Insert(pic_addr & .Cells(iRow, 2) _
15          & '.jpg')
16
17          Set Target = .Cells(iRow, 5)
18
19          With photo
20            .Top = Target.Top
21            .Left = Target.Left
22            .Width = Target.Width
23            .Height = Target.Height
24          End With
25        Next
26    End With
27End Sub