用VBA代码来快速实现Excel批注图片批量添加，步骤如下：
1.准备图片
将需要添加为批注的图片全部复制到某个文件夹中，并以“名称.jpg”来命名。
2.在单元格中输入名称，名称必需和图片名称相对应。
3.在VBA编辑器中添加下面的代码：
Sub 添加图片批注()
On Error Resume Next
Dim Cell As Range
Dim Pics As String
Dim ErrCell As String
Selection.ClearComments
For Each Cell In Selection
Pics = "C:\Users\admin\Desktop\新建文件夹(3)\" & Cell.Value & ".jpg"
If Dir(Pics) = "" Then
ErrCell = ErrCell & "" & Cell.Address(0, 0)
Else
With Cell.AddComment
erPicture PictureFile:=Pics
.Shape.Height = 100
.Shape.Width = 100
End With
End If
Next
MsgBox "以下单元格没有图片哦！" & vbCrLf & ErrCell
End Sub
其中“h:\pic\”为图片所在文件夹，“.Shape.Height = 100”指定批注图片的高度，“.Shape.Width = 100”指定批注的宽度，请根据实际情况进行更改。
4.选择所有包含名称的单元格，运行上述代码，即可为所有选中的单元格添加相应的图片批注。
注意在选择产品名称所在单元格时，仅仅选择所需单元格，而不能选择其他单元格，特别是在这些单元格不连续时，否则会出错。
5.如果要重新添加图片批注，必需先删除所有批注后再次运行VBA代码。方法是选择所有包含产品名称的单元格，鼠标右击，在弹出的快捷菜单中选择“删除批注”即可。
