1、首先我这里准备了一个表格，写了几个单元格的内容，同时准备了几张与单元格内容相同的图片。
2、打开Excel的VBA界面，这个有很多方式倦虺赳式可以打开。个人觉得最简单的就是右击sheet——查看代码，打开VBA界面。
3、然后在这里写代码。简单概括一下就是在文件夹里找与单元格内容相同的图片，然后执行插入，将图片插入到批注中去。
4、写完之后点击运行。出现选择文件夹的弹框，这里是选择文件夹，不是选择图片。我这里都放在图片文件夹里。
5、确定之后要选择需要插入批注的单元格区域。选择好区域之后，再次点击确定。
6、系统会告诉你导入的结果，比如说这里有5个单元格，但是有一个单元格内容没有与之对应的图片，所以这里有提示。
7、再次点击确定。这时你会发现有对应图片的单元格都已经插入图片批注了。
8、Sub CommentPic() Dim Arr, i&, k争犸禀淫&, n&, pd& Dim PicName$, PicPath$, FdP锾攒揉敫ath$ Dim Rng As Range, Cll As Range Application.ScreenUpdating = False 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) 'intersect语句避免用户选择整列单元格，造成无谓运算的情况 Arr = Array(".jpg", ".jpeg", ".bmp", ".png", ".gif") '用数组变量记录五种文件格式 ' For Each Cll In Rng '遍历选择区域的每一个单元格 Cll.Comment.Delete '删除旧的批注 PicName = Cll.Text '图片名称 If Len(PicName) Then '如果单元格存在值 PicPath = FdPath & PicName '图片路径 pd = 0 'pd变量标记是否找到相关图片 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 = 150 '图形的高度，可以根据需要自己调整 .Shape.Width = 150 '图形的宽度，可以根据需要自己调整 .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 = TrueEnd Sub
