大家好,我是中藥黨。
馬上就過(guò)春節(jié)了,先祝各位一直陪伴走來(lái)的小伙伴們新年快樂(lè),過(guò)春節(jié)就好好休息放松,有張有弛才能更好地學(xué)習(xí)進(jìn)步。
今天我們分享一個(gè)簡(jiǎn)單的Excel自動(dòng)批量插入圖片的技巧,雖然很簡(jiǎn)單,但在工作中還是很常用的,案例如下: 現(xiàn)在有一個(gè)Excel員工名冊(cè),還有一個(gè)文件夾存放著員工照片,現(xiàn)在需要將員工照片批量插入名冊(cè)中。 在日常工作中經(jīng)常需要在工作表插入圖片,并且有的時(shí)候需要在指定位置插入大量圖片,通過(guò)手工操作的方式來(lái)進(jìn)行這些繁瑣的工作既要浪費(fèi)大量的時(shí)間而且非常容易出錯(cuò),如果用VBA就能快速完成這一系列繁瑣的操作。 1.定義相關(guān)變量iRow:用來(lái)循環(huán)遍歷的行號(hào) photo:用來(lái)臨時(shí)存儲(chǔ)每次循環(huán)插入到工作表的圖片對(duì)象 Target:用來(lái)設(shè)定照片放置的基準(zhǔn)單元格 pic_addr:用來(lái)設(shè)定照片在計(jì)算機(jī)的存放路徑 下圖設(shè)置的是絕對(duì)路徑,也可以通過(guò)Thisworkbook.path設(shè)置相對(duì)路徑更加方便移植。 2.按行遍歷插入照片①按行遍歷數(shù)據(jù)表 ②將與當(dāng)前行姓名列名稱相同的圖片插入 ③設(shè)置當(dāng)前行的基準(zhǔn)單元格 ④再將剛插入的照片按照基準(zhǔn)單元格設(shè)置位置和大小 完整代碼如下: 1Sub 批量插入圖片() 我們看一下執(zhí)行的效果: |
|