Excel VBA 批量插入批注

有个需求，想实现类似下面的效果，当鼠标移动到单元格时会浮动显示对应的图片：

其实这个效果可以使用批注插入图片来实现，但如果想要加图片批注的数目太多则需要批量插入，这时候就需要使用Excel VBA来实现。

在Excel里右键Sheet，弹出的菜单中选择“查看代码”，将如下的代码复制进去。

Sub 批量插入图片批注提示()
Dim a
a = MsgBox("提示：插入批注。")
If a = 1 Then
On Error Resume Next
Dim MR As Range
Dim Pics As String
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    MR.AddComment
    MR.Comment.Visible = False
    MR.Comment.Text Text:=""
    MR.Comment.Shape.Fill.UserPicture PictureFile:="C:\Users\arizon\Desktop\新建文件夹\" & MR.Value & ".jpg"
End If
Next
End If
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
Cmt.Parent.Comment.Shape.Width = 200
Cmt.Parent.Comment.Shape.Height = 200
Next Cmt
End Sub

上面代码中的PictureFile是存放的想要插入的图片路径，根据实际情况修改。里面的文件名要和单元格的内容一致，这样就可以对应关联上。

如图所示，点击保存：

回到Excel，选中区域：

切换到VBA，点击执行代码即可。