批量插入图片批注

批量插入图片批注
用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
/doc/3a6263729.html,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代码。

方法是选择所有包含产品名称的单元格，鼠标右击，在弹出的快捷菜单中选择“删除批注”即可。