excel：如何批量導入圖片
office 學習 2010-05-16 11:34:26 閱讀1183 評論2 字號：大中小
在ecxel里插入圖片應該是人人都會，但是要求你插入幾十張圖片，那就麻煩了，總不能一張張地插入吧?，F(xiàn)在有個好方法，需要用到ecxel里的宏：
這里用一個9個學生的名單與相片做例子：
1、首先在同一個文件夾里新建一個電子表格excel，還有一個學生的相片文件夾，圖片是.JPG格式的。
2、準備好學生的相片順序，命名為1、2、3……（如上圖）
3、電子表格的SHEET1工作表A列為學號1、2、3……
B列為姓名（姓名的順序要與相片的順序一致）
C為相片（把C列的大小按照相片的大小調(diào)好）
4、工具-----宏------錄制新宏。
5、彈出“錄制新宏”對話框，宏名隨便，保存在“當前工作簿”，確定。
6、電子表格里出現(xiàn)下面這個圖標，單擊“相對引用”即右邊那個，然后按左邊的停止按鈕。
7、工具-----宏----宏。
8、彈出“宏”對話框，選中剛才錄制宏的宏名如“Macro2”，再按編輯。
9、彈出宏的編輯器，在右邊的“通用”下面編輯界面里，把里面原有的內(nèi)容全都刪除，把下面（紅色部分）一段代碼復制粘貼進去。
Sub Macro2()
'
Dim cun As Integer
For cun = 1 To 9
Range("c" & cun).Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\桌面\相片批量導入\學生相片\" & cun & ".jpg" _
).Select
Next cun
End Sub
===========================
上面的編碼解釋一下：
1）Macro2 指宏的名稱。
2）For cun = 1 To 9 1表示第一行，9表示最后一行是第九行，如果你有100個學生相片，那就改成100
3）Range("c" & cun).Select C表示執(zhí)行這個宏是在c列
4）"C:\Documents and Settings\Administrator\桌面\相片批量導入\學生相片\" 表示圖片原來在哪里地方，如果你的相片放在別的地方就改成別的地方就可以了。
5）".jpg" 表示導入的是“.jpg”擴展名的圖片。
?。ê呛?，本人也是一個菜鳥，只能模糊地解釋，不好意思）
11、粘貼完后，按保存，再左上角的excel小圖標，回到電子表格界面。
12、工具-----宏----宏
13、彈出“宏”對話框，選中剛才錄制宏的宏名如“Macro2”，再按“執(zhí)行”
14、很快地就在C列出現(xiàn)了學生的相片了，成功！
函數(shù)和公式我就不知道了，如果用宏代碼如下，假設你的照片存在
D:\Pictures\students下，照片名字就是1到52，照片格式是jpg格式
Dim cun As Integer
For cun = 1 To 52
Range("b" & cun).Select
ActiveSheet.Pictures.Insert( _
"D:\Pictures\students\" & cun & ".jpg" _
).Select
Next cun
End Sub
編程的方法比較簡單,推薦使用。
另外僅操作也是能夠?qū)崿F(xiàn)的批量插入圖片到單元格。
1.首先設置一下,B列單元格的行高列寬,使其大小比列正常可以放置照片;
2.視圖-常用工具欄-勾選繪圖。在繪圖工具欄選擇繪圖菜單,自動對齊,勾選對齊到網(wǎng)格.
3.選擇B列需要插入的圖片的第一個單元格,例如B2，
插入-圖片-來自文件,按著Ctrl和Shift來選擇52張圖片,確定
4.Ctrl+G,定位條件,對象,確定
5.繪圖工具欄-繪圖菜單,對齊或分布,左對齊
6.Ctrl+1,大小,去掉鎖定縱橫比的對勾,
設置寬度和高度(大小可以隨意寫,統(tǒng)一即可)
7.調(diào)整圖片高度寬度,讓其和B列單元格重合,
（由于勾選了對齊到網(wǎng)格,對齊比較容易）
