工作和生活中，有时需要在单元格中插入相关的图片做备注参考，以便随时翻阅查看。在这里简单介绍3种在Excel单元格中插入图片的方法，看完和跟着操作后，相信你就能getit。三选一，你想要哪种，自助餐自己选哦
工具/原料
电脑一台，图片若干（你随意），office软件一个（WPS也行喽）
方法/步骤
1、方法Method1:直接插入图片打开Excel软件，点击需插入图片的单元格；然后选择插入菜单命令下的图片选项；在电脑文件夹里选择要插入的图片即可；（ctrl+A键可全选照片，按住ctrl键不放点击鼠标左键可有选择性的批量点选相应照片，这样做可减少一张一张照片插入的工作量）。
2、图片插入后，按住ctrl键不放，可快速调整图片大小，按住alt键，调整图片时可让图片自动吸附在单元格边框里，图片可与单元单元格大小紧密相接
3、这样还没完，贴完和调私网褡爸整图片后要进行属性设置，点击一张照片，ctrl+a全选，鼠标右键大小和属性选项，缩放宽曜汹浒吟度都打上勾，属性选随随单元格改变位置和大小为啥要这样做：调整设置好后图片可紧邻单元格改变而改变，（前提条件：之前需要按住alt键调整图片刚好适应单元格边框，不然调整单元格大小时图片是没反应的，岿然不动如泰山），但单元格大小随意拖拽调整还是会产生难看的图片畸变。所以在调整单元格时悠着点哦
方法/步骤2
1、方法Method2：批注插入图片先选中需插入图片的单元格，右键插入批注，记得顺便把批注里面的文字删掉哦
2、在批注边框的边缘（鼠标出现十字箭头，不能直接在边框里右键，否则不显示，打开只有字体样式），右键设置批注格式，选择颜色与线条选项，在填充选项下，点选颜色下拉菜单，选填充效果，在里面选图片，从文件选择相应的照片即可
3、插入图片之后，可右键编辑批注和隐藏批注，大小的调整拖动边框即可，隐藏批注后，鼠标的光标移到批注的单元格上就能查看了。（此批注插入的方法有点繁琐，要一张一张插入，若放一百张照片，操作的手估计要废掉了，不急下面还有一种高效快速的图片插入方法）
方法/步骤3
1、方法Method3：EXCEL里VBA批量插入图片，茂葛锵哑高效快速不累人，单元格插入的图片整齐划一排列新建一个文件夹，把要插入的图片都放在里面，特别注意：文件夹里面，图片的名字要和需插淀尬逄攻入单元格里的名字一样才行，不然运行代码的时候图片是放不进去的，再三强制，命名这一步很重要，张三不能命名麻子，否者张冠李戴
2、在Excel下运行下面的vba代码点击工作表，右键查看代码，把下面的代码粘贴进去，喘揲塾疖点窗口上方带有播放按钮的图标或者按僻棍募暖F5键运行代码；运行代码后会弹出要选择文件夹，选择要插入图片的文件夹即可，此时是文件夹里是看不到图片的，请忽略，这实属正常现象；VBA代码是下面横线框里的东东哦，不可多copy——————————————————————————————————SubCommentPic()DimArr,i&,k&,n&,pd&DimPicName$,PicPath$,FdPath$DimRngAsRange,CllAsRangeOnErrorResumeNext'用户选择图片所在的文件夹WithApplication.FileDialog(msoFileDialogFolderPicker).AllowMultiSelect=FalseIf.ShowThenFdPath=.SelectedItems(1)Else:ExitSubEndWithIfRight(FdPath,1)<>"\"ThenFdPath=FdPath&"\"SetRng=Application.InputBox("请选择需要插入图片到批注中的单元格区域",Type:=8)IfRng.Count=0ThenExitSubSetRng=Intersect(Rng.Parent.UsedRange,Rng)Arr=Array(".jpg",".jpeg",".bmp",".png",".gif")Application.ScreenUpdating=FalseForEachCllInRngCll.Comment.DeletePicName=Cll.TextIfLen(PicName)ThenPicPath=FdPath&PicNamepd=0Fori=0ToUBound(Arr)IfLen(Dir(PicPath&Arr(i)))ThenCll.AddCommentWithCll.Comment.Visible=True.TextText:="".Shape.SelectTrueSelection.ShapeRange.Fill.UserPicturePicPath&Arr(i).Shape.Height=250.Shape.Width=250.Visible=FalseEndWithpd=1n=n+1ExitForEndIfNextIfpd=0Thenk=k+1EndIfNextMsgBox"共处理成功"&n&"张图片，另有"&k&"个非空单元格没有找到的对应的图片，失败的图片没导入进去，可能你文件夹里的图片名字和单元格里的名字不一致，请再次核对一遍，改正下哦。"Application.ScreenUpdating=TrueEndSub——————————————————————————————————说明：Shape.Height=250为批注图片的高度，可根据需要自行调整大小Shape.Width=250为批注图片的宽度，可根据需要自行调整大小(运行代码前要根据自己需在单元格显示的图片大小，调整这两个参数，不然要一个一个编辑批注修改图片大小属性，麻烦的很，运行前要三思而行)
3、选择好图片文件夹后，会弹出要插入图片的单元格区域，回到工作表，框选要插入图片的单元格区域即可。之前若命名正确，最后图片一下子全部准确无误，依次对号入座导入到单元格的批注里。代码运行成功与否最后都会有个提示框弹出来告诉你具体运行情况。
