附上批量插入图片批注的代码：
Sub 批量添加图片批注()
For Each cell In Selection '循环要插入批注的单元格
pics = ThisWorkbook.Path & "\产品图片\" & cell.Value & ".jpg" '图片存放地址
cell.ClearComments '先清空批注
With cell.AddComment '为区域添加批注
On Error Resume Next
.Shape.Fill.UserPicture picturefile:=pics '插入图片
.Shape.Height = 50 '设置图片高度
.Shape.Width = 100 '设置图片宽度
End With
Next cell
End Sub
三、运行宏
1、鼠标选择要插入批注的所有单元格，点击【开发工具】的【宏】按钮；
2、在弹出的的【宏】窗口中，点击【执行】，如下：
这时，可以看到，表格里的产品都插入了图片批注。
强调说明：
1、要插入批注的图片名称一定要与表格内的产品名称保持一致，否则匹配不到。
2、放图片的文件夹一定要与表格放在同一个目录下。
3、Excel文件要启用宏，才能运行。有些默认设置，宏没有启用，可以按照以下方法启用：
【文件】—【选项】—【信任中心】—【信任中心设置】—【宏设置】—【启用所有宏】。
