『壹』 怎麼批量插入大量圖片到表格里一個小功能，就能輕松解決！
在Excel中，插入圖片也是基礎操作之一，也就是【插入】-【圖片】……但如果插入100張，甚至1000張圖片，而且信息還要對應，用【插入】-【圖片】的常規方法來操作，工作量顯然就有點兒大了……
一、准備數據表中人員的照片 。
解讀：
數據表中人員的姓名必須和照片的姓名一致；照片必須放置在同一個文件夾中。
二、插入照片。
一般的思路肯定是把這些照片插入到表格中，並且一一對應排列好。但問題是人員較多，效率極低……
正確的操作步驟是：
1、對「姓名」進行「升序」排序。
方法：
1、選定數據區域，【數據】-【排序】，打開【排序】對話框。
2、在【主要關鍵字】中選擇【員工姓名】，【排序依據】中選擇【單元格值】，【次序】中選擇【升序】並【確定】。
2、調整單元格大小。
方法：
選定數據區域，調整列寬和行高，最終使照片能夠插入即可。
解讀：
當行數較多時，請使用Ctrl+Shift+ ↓ 全選數據區域即可。
3、批量插入圖片並調整大小。
方法：
1、【插入】-【圖片】-【此設備】，打開存放照片的文件夾。
2、Ctrl+A全選，並【插入】。
3、通過拖動滑鼠或設置數值調整照片的大小。
4、設置對齊方式。
方法：
1、選擇最後一張圖片，並拖動到最後一個單元格區域。
2、Ctrl+A全選圖片，選擇【圖片格式】下【排列】組中的【對齊】-【左對齊】，並在此菜單中再次選擇【縱向分布】。
解讀：
如果數據行非常多，可以先剪切最後一張圖片，定位到最後一個單元格之後，粘貼即可。
結束語：
使用此方法，可以批量地插入大量照片，如果要做到比較完美，需要對照片的大小進行預處理，插入表格調整大小後，正好和單元格相對應。但需要注意的是，需要對數據表中的「名稱」進行升序排序，這是因為在文件夾中，照片就是默認按照名稱，升序排序的。所以，對數據表中的「名稱」升序排序，必不可少，也可以理解為前提條件！
『貳』 請問怎麼 才能在EXCEL中把圖片批量並且居中的放在單元格中
可以通過VBA實現，點擊【開發工具】，【Visual Basic】打開VBA編輯器，也可以使用【Alt+F11】組合鍵打開VBA編輯器。雙擊「模塊1」，復制以下代碼。然後插入按鈕，指定宏即可。
代碼如下
SubInsertPic()
'ExcelHomeVBA編程學習與實踐by:看見星光
DimArr,i&,k&,n&,pd&
DimstrPicName$,strPicPath$,strFdPath$,shpAsShape
DimRngAsRange,CllAsRange,RgAsRange,strWhereAsString
'OnErrorResumeNext
'用戶選擇圖片所在的文件夾
WithApplication.FileDialog(msoFileDialogFolderPicker)
If.ShowThenstrFdPath=.SelectedItems(1)Else:ExitSub
EndWith
IfRight(strFdPath,1)<>""ThenstrFdPath=strFdPath&""
SetRng=Application.InputBox("請選擇圖片名稱所在的單元格區域",Type:=8)
'用戶選擇需要插入圖片的名稱所在單元格範圍
SetRng=Intersect(Rng.Parent.UsedRange,Rng)
'intersect語句避免用戶選擇整列單元格，造成無謂運算的情況
IfRngIsNothingThenMsgBox"選擇的單元格範圍不存在數據！":ExitSub
strWhere=InputBox("請輸入圖片偏移的位置，例如上1、下1、左1、右1",,"右1")
'用戶輸入圖片相對單元格的偏移位置。
IfLen(strWhere)=0ThenExitSub
x=Left(strWhere,1)
'偏移的方向
IfInStr("上下左右",x)=0ThenMsgBox"你未輸入偏移方位。":ExitSub
y=Val(Mid(strWhere,2))
'偏移的值
SelectCasex
Case"上"
SetRg=Rng.Offset(-y,0)
Case"下"
SetRg=Rng.Offset(y,0)
Case"左"
SetRg=Rng.Offset(0,-y)
Case"右"
SetRg=Rng.Offset(0,y)
EndSelect
Application.ScreenUpdating=False
Rng.Parent.Select
ForEachshpInActiveSheet.Shapes
'如果舊圖片存放在目標圖片存放范圍則刪除
IfNotIntersect(Rg,shp.TopLeftCell)IsNothingThenshp.Delete
Next
x=Rg.Row-Rng.Row
y=Rg.Column-Rng.Column
'偏移的坐標
Arr=Array(".jpg",".jpeg",".bmp",".png",".gif")
'用數組變數記錄五種文件格式
ForEachCllInRng
'遍歷選擇區域的每一個單元格
strPicName=Cll.Text
'圖片名稱
IfLen(strPicName)Then
'如果單元格存在值
strPicPath=strFdPath&strPicName
'圖片路徑
pd=0
'pd變數標記是否找到相關圖片
Fori=0ToUBound(Arr)
'由於不確定用戶的圖片格式，因此遍歷圖片格式
IfLen(Dir(strPicPath&Arr(i)))Then
'如果存在相關文件
Setshp=ActiveSheet.Shapes.AddPicture(_
strPicPath&Arr(i),False,True,_
Cll.Offset(x,y).Left+5,_
Cll.Offset(x,y).Top+5,_
20,20)
shp.Select
WithSelection
.ShapeRange.LockAspectRatio=msoFalse
'撤銷鎖定圖片縱橫比
.Height=Cll.Offset(x,y).Height-10'圖片高度
.Width=Cll.Offset(x,y).Width-10'圖片寬度
EndWith
pd=1'標記找到結果
n=n+1'累加找到結果的個數
[a1].Select:ExitFor'找到結果後就可以退出文件格式循環
EndIf
Next
Ifpd=0Thenk=k+1'如果沒找到圖片累加個數
EndIf
Next
Application.ScreenUpdating=True
MsgBox"共處理成功"&n&"個圖片，另有"&k&"個非空單元格未找到對應的圖片。"
EndSub
小提示：
1，該段小代碼支持一下圖片格式：
".jpg",".jpeg",".bmp",".png",".gif"
2，圖片的縱橫比是未鎖定的，如需鎖定，可以注釋掉下句代碼：
.ShapeRange.LockAspectRatio=msoFalse
『叄』 Word表格單元格中放入圖片，如何讓圖片充滿整個單元格
示例操作步驟如下：
1、首先打開WORD文檔，創建好表格。
『肆』 Word表格單元格中放入圖片，如何讓圖片充滿整個單元格
先選中這些表格，右鍵，設置屬性，選項，上下左右邊距都設置為0cm。
同時按alt和f11進入宏界面，點菜單的插入，模塊，粘貼如下代碼：
sub test()
dim pic as inlineshape
for each pic in thisdocument.inlineshapes
if pic.type = 3 then
pic.lockaspectratio = msofalse
pic.width = pic.range.cells.width
pic.height = pic.range.cells.height
end if
next
end sub
在此界面直接按f5運行此宏，圖片大小自動填充到整個表格。
這個可以將所有表格里的圖片一次性填充好。
『伍』 Excel 怎麼將插入的圖片充滿整個單元格
一、首先，打開Excel程序，然後將圖片插入到Excel表格中。
『陸』 在word中的表格如何使插入的圖片占滿整個單元格
工具/原材料
word2007、電腦。
1、打開電腦程序找到並點擊word2007版軟體；
『柒』 怎樣把多張圖片整齊放在Excel單元格裡面
先設置它的屬性,把"鎖定長寬比"的勾選去掉
然後按住ALT鍵,拉動對角就可以鎖定在單元格的對角上了,完美嵌入單元格
『捌』 如何在word 的表格中批量插入圖片
1、例如：把網路經驗的LOGO批量插入到表格每一個單元格里。
『玖』 excel表格如何批量插入圖片,圖片大小一致
可以在插入圖片後，統一修改大小：
1、點擊工具欄上的「插入」-「圖片」；
2、成功插入圖片後，點擊任一圖片，然後按ctrl+A組合鍵，全選圖片；
3、接著，點擊工具欄上的「格式」，點擊右側「大小」處的箭頭按鈕；
4、點擊「大小」，把「鎖定縱橫比」、「相對於圖片原始尺寸」的√去掉，輸入你想要的高度和寬度，最後點擊「關閉」即可