Excel VBA 實例(38)- 批量插入圖片並完美匹配單元格大小

有的時候我們在excel記錄班級同學、公司員工的檔案信息的時候,會需要插入人物的照片。

Excel裏面一張一張的插入照片,還需要手工的將每張圖片調整和單元格一樣的長寬,相信這個工作量就很趕人~~~

不過還好有VBA!!!

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

問題背景

如下圖,我們想實現的效果是,將提前收集準備好的圖片插入到excel表格當中去,姓名就是插入圖片的名字。

實操過程

1、提取所有圖片的名字

這裏我們可以使用之前介紹過的bat方法,新建一個txt文檔,將下面的代碼複製進去,保存爲filename.bat

dir /B *.* >list.txt

然後將bat文件放入圖片所在的文件夾內,雙擊,會自動生成一個list.txt的文檔。

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

2、用VBA批量插入圖片

將上一步的涉及到的所有圖片名字都複製到excel表當中去

然後運行下面的VBA代碼

效果演示:

這樣圖片就自動插入進去了,並且自動將大小調整好和單元格匹配。

覺得不好或者需要更新照片的話,可以點擊刪除,然後再重新插入。

3、用“查找和替換”功能,將B2列姓名後面的擴展名刪除掉。

這樣就大功告成。

值得一說的地方

上面的代碼裏面,圖片寬度和列寬值得注意,這裏說明一下。

VBA裏的圖片寬度和列寬不是同一個單位,至於爲啥我也說不清楚,應該是個long story。

我們平常使用也不用糾結這麼多,只需要參照永恆君調整好的這個比例就差不多。

如下圖,圖片寬度:列寬=76:12=6.33

比如,你的excel表格裏面放圖片的單元格列寬是18,那麼圖片寬度需要設置爲18*6.33=113.9即可。將代碼裏的這兩個變量修改一下就可以了。

好了,以上就是今天的全部分享內容。

大家的點贊、在看和轉發對我非常重要,如文章對你有幫助還請支持下,謝謝各位!

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章