SimoneEXCEL怎么样插入图片，3种方法，简单实用不粗暴
的有关信息介绍如下：
工作和生活中，有时需要在单元格中插入相关的图片做备注参考，以便随时翻阅查看。在这里简单介绍3种在Excel单元格中插入图片的方法，看完和跟着操作后，相信你就能get it。三选一，你想要哪种，自助餐自己选哦
方法Method1:直接插入图片
打开Excel软件，点击需插入图片的单元格；
然后选择插入菜单命令下的图片选项；
在电脑文件夹里选择要插入的图片即可；
（ctrl+A键可全选照片，按住ctrl键不放点击鼠标左键可有选择性的批量点选相应照片，这样做可减少一张一张照片插入的工作量）。
图片插入后，按住ctrl键不放，可快速调整图片大小，按住alt键，调整图片时可让图片自动吸附在单元格边框里，图片可与单元单元格大小紧密相接
这样还没完，贴完和调整图片后要进行属性设置，点击一张照片，ctrl+a全选，鼠标右键大小和属性选项，缩放宽度都打上勾，属性选随随单元格改变位置和大小
为啥要这样做：调整设置好后图片可紧邻单元格改变而改变，（前提条件：之前需要按住alt键调整图片刚好适应单元格边框，不然调整单元格大小时图片是没反应的，岿然不动如泰山），但单元格大小随意拖拽调整还是会产生难看的图片畸变。所以在调整单元格时悠着点哦
方法Method2：批注插入图片
先选中需插入图片的单元格，右键插入批注，记得顺便把批注里面的文字删掉哦
在批注边框的边缘（鼠标出现十字箭头，不能直接在边框里右键，否则不显示，打开只有字体样式），右键设置批注格式，选择颜色与线条选项，在填充选项下，点选颜色下拉菜单，选填充效果，在里面选图片，从文件选择相应的照片即可
插入图片之后，可右键编辑批注和隐藏批注，大小的调整拖动边框即可，隐藏批注后，鼠标的光标移到批注的单元格上就能查看了。
（此批注插入的方法有点繁琐，要一张一张插入，若放一百张照片，操作的手估计要废掉了，不急下面还有一种高效快速的图片插入方法）
方法Method3：EXCEL里VBA批量插入图片，高效快速不累人，单元格插入的图片整齐划一排列
新建一个文件夹，把要插入的图片都放在里面，
特别注意：文件夹里面，图片的名字要和需插入单元格里的名字一样才行，不然运行代码的时候图片是放不进去的，再三强制，命名这一步很重要，张三不能命名麻子，否者张冠李戴
在Excel下运行下面的vba代码
点击工作表，右键查看代码，把下面的代码粘贴进去，点窗口上方带有播放按钮的图标或者按F5键运行代码；
运行代码后会弹出要选择文件夹，选择要插入图片的文件夹即可，此时是文件夹里是看不到图片的，请忽略，这实属正常现象；VBA代码是下面横线框里的东东哦，不可多copy
——————————————————————————————————
Sub CommentPic()
Dim Arr, i&, k&, n&, pd&
Dim PicName$, PicPath$, FdPath$
Dim Rng As Range, Cll As Range
On Error Resume Next
'用户选择图片所在的文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show Then FdPath = .SelectedItems(1) Else: Exit Sub
End With
If Right(FdPath, 1) <> "\" Then FdPath = FdPath & "\"
Set Rng = Application.InputBox("请选择需要插入图片到批注中的单元格区域", Type:=8)
If Rng.Count = 0 Then Exit Sub
Set Rng = Intersect(Rng.Parent.UsedRange, Rng)
Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif")
Application.ScreenUpdating = False
For Each Cll In Rng
Cll.Comment.Delete
PicName = Cll.Text
If Len(PicName) Then
PicPath = FdPath & PicName
pd = 0
For i = 0 To UBound(Arr)
If Len(Dir(PicPath & Arr(i))) Then
Cll.AddComment
With Cll.Comment
.Visible = True
.Text Text:=""
.Shape.Select True
Selection.ShapeRange.Fill.UserPicture PicPath & Arr(i)
.Shape.Height = 250
.Shape.Width = 250
.Visible = False
End With
pd = 1
n = n + 1
Exit For
End If
Next
If pd = 0 Then k = k + 1
End If
Next
MsgBox "共处理成功" & n & "张图片，另有" & k & "个非空单元格没有找到的对应的图片，失败的图片没导入进去，可能你文件夹里的图片名字和单元格里的名字不一致，请再次核对一遍，改正下哦。"
Application.ScreenUpdating = True
End Sub
——————————————————————————————————
说明：
Shape.Height = 250 为批注图片的高度，可根据需要自行调整大小
Shape.Width = 250 为批注图片的宽度，可根据需要自行调整大小
(运行代码前要根据自己需在单元格显示的图片大小，调整这两个参数，不然要一个一个编辑批注修改图片大小属性，麻烦的很，运行前要三思而行)
选择好图片文件夹后，会弹出要插入图片的单元格区域，回到工作表，框选要插入图片的单元格区域即可。
之前若命名正确，最后图片一下子全部准确无误，依次对号入座导入到单元格的批注里。代码运行成功与否最后都会有个提示框弹出来告诉你具体运行情况。
