1. 请问怎么 才能在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
2. excel怎么把图片在单元格居中
打开excel文档,点击插入--图片,选择路径,查看图片所在的位置。选择所需的图片,点击插入选中图片,点击一下,会出现图片工具的栏目,可以对图片进行编辑。找到大小编辑栏,点击右下角的小箭头,进入设置图片格式界面选中属性,属性的对象位置,选择大小和位置随单元格而变。就设置好了。
3. Excel中如何使插入的图片与表格居中对齐
1、首先,打开需要操作的Excel表格,在B1单元格中插入一张皮卡丘的图片。
4. excel怎么让图片居中
在excel当中插入图片以后,可以点击这个图片,有一个开始的下拉菜单,里面可以把图片调整为居中 。