有的時(shí)候我們?cè)趀xcel記錄班級(jí)同學(xué)、公司員工的檔案信息的時(shí)候，會(huì)需要插入人物的照片。

Excel里面一張一張的插入照片，還需要手工的將每張圖片調(diào)整和單元格一樣的長(zhǎng)寬，相信這個(gè)工作量就很趕人~~~

不過(guò)還好有VBA?。?！

今天這篇文章就來(lái)分享一下用VBA幫你快速搞定Excel批量插入圖片并完美匹配單元格大小。

問(wèn)題背景

如下圖，我們想實(shí)現(xiàn)的效果是，將提前收集準(zhǔn)備好的圖片插入到excel表格當(dāng)中去，姓名就是插入圖片的名字。

實(shí)操過(guò)程

1、提取所有圖片的名字

這里我們可以使用之前介紹過(guò)的bat方法，新建一個(gè)txt文檔，將下面的代碼復(fù)制進(jìn)去，保存為filename.bat

然后將bat文件放入圖片所在的文件夾內(nèi)，雙擊，會(huì)自動(dòng)生成一個(gè)list.txt的文檔。

這樣，我們就提取到了所有圖片的名字。

2、用VBA批量插入圖片

將上一步的涉及到的所有圖片名字都復(fù)制到excel表當(dāng)中去

然后運(yùn)行下面的VBA代碼

效果演示：

這樣圖片就自動(dòng)插入進(jìn)去了，并且自動(dòng)將大小調(diào)整好和單元格匹配。

覺(jué)得不好或者需要更新照片的話(huà)，可以點(diǎn)擊刪除，然后再重新插入。

3、用“查找和替換”功能，將B2列姓名后面的擴(kuò)展名刪除掉。

這樣就大功告成。

值得一說(shuō)的地方

上面的代碼里面，圖片寬度和列寬值得注意，這里說(shuō)明一下。

VBA里的圖片寬度和列寬不是同一個(gè)單位，至于為啥我也說(shuō)不清楚，應(yīng)該是個(gè)long story。

我們平常使用也不用糾結(jié)這么多，只需要參照永恒君調(diào)整好的這個(gè)比例就差不多。

如下圖，圖片寬度：列寬=76：12=6.33

比如，你的excel表格里面放圖片的單元格列寬是18，那么圖片寬度需要設(shè)置為18*6.33=113.9即可。將代碼里的這兩個(gè)變量修改一下就可以了。

好了，以上就是今天的全部分享內(nèi)容。

如果你對(duì)上面這些感興趣的話(huà)，可以在公號(hào)內(nèi)回復(fù)「插入圖片」獲取vba文件進(jìn)行試用吧~~

歡迎交流！

轉(zhuǎn)載請(qǐng)注明：永恒君的百寶箱 ? Excel VBA 實(shí)例（38）- 批量插入圖片并完美匹配單元格大小