‘壹’ 怎么批量插入大量图片到表格里一个小功能，就能轻松解决！
在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、点击“大小”，把“锁定纵横比”、“相对于图片原始尺寸”的√去掉，输入你想要的高度和宽度，最后点击“关闭”即可