标签：Comment 批注 VBA Dim Excel 插入 MR Cmt

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

其实这个效果可以使用批注插入图片来实现，但如果想要加图片批注的数目太多则需要批量插入，这时候就需要使用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，点击执行代码即可。

标签：Comment,批注,VBA,Dim,Excel,插入,MR,Cmt
来源： https://www.cnblogs.com/guwei4037/p/16241425.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。