Excel中批量添加批注图片

excel中想实现这种悬停时显示图片的效果

1、将图片与单元格命名一致，并将图片与excel文件放置在同一目录下

 

2、选中需要设置的单元格，点击【开发工具】 -查看代码（如果没有开发工具往下看）

 

3、在编辑框中输入以下代码并运行

Sub AddPicturesToComment()
Sheets("Sheet1").Select
    For Each Rng In Selection
        paths = ThisWorkbook.Path & "\" & Rng.Value & ".jpg"
        Rng.ClearComments
        Rng.AddComment
        Rng.Comment.Shape.Height = 50
        Rng.Comment.Shape.Width = 50
        Rng.Comment.Shape.Fill.UserPicture paths
    Next Rng
End Sub

注意事项：

代码中默认为sheet1表,图片为jpg格式，宽高为50（可以自行修改）

如果有报错检查下注意的参数，图片与单元格文本是否一致等。如果只添加了一部分，那中断的单元格肯定是文本对应不上找不到图片导致

完成后效果如第一张图所示。

调出开发工具：

点击文件-选项，自定义功能区中勾选开发工具，点击【确定】即可