当鼠标滑过单元格时，Excel就会自动显示图片……

哈喽，我是星光。今天给大家分享一段复制即可使用的VBA小代码；作用是将指定文件夹内的图片，根据名称，批量插入到Excel工作表的批注中。

这么做有什么好处呢？当鼠标滑过单元格时，Excel就会自动显示图片了，很实用，看起来也很酷~

实际效果如下图所示▼

、

打个响指，划个重点，那么如何一键实现这样的效果？
复制运行以下代码即可。
如果你还不会运行VBA代码，可以参考：如何运行VBA代码？其实很简单
代码如看不全，可以左右拖动..▼
    Sub AddCommentPic() Dim arr, i&, k&, n&, b As Boolean Dim strPicName$, strPicPath$, strFdPath$ Dim rngData As Range, rngEach As Range 'On Error Resume Next '用户选择图片所在的文件夹 With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strFdPath = .SelectedItems(1) Else: Exit Sub End With If Right(strFdPath, 1) <> '\' Then strFdPath = strFdPath & '\' Set rngData = Application.InputBox('请选择需要插入图片到批注中的单元格区域', Type:=8) '用户选择需要插入图片到批注中的单元格或区域 If rngData.Count = 0 Then Exit Sub Set rngData = Intersect(rngData.Parent.UsedRange, rngData) 'intersect语句避免用户选择整列单元格，造成无谓运算的情况 If rngData Is Nothing Then MsgBox '选择单元格不能全为空。': Exit Sub arr = Array('.jpg', '.jpeg', '.bmp', '.png', '.gif') '用数组变量记录五种文件格式 Application.ScreenUpdating = False For Each rngEach In rngData '遍历选择区域的每一个单元格 If Not rngEach.Comment Is Nothing Then rngEach.Comment.Delete '删除旧的批注 strPicName = rngEach.Text '图片名称 If Len(strPicName) Then '如果单元格存在值 strPicPath = strFdPath & strPicName '图片路径 b = False 'pd变量标记是否找到相关图片 For i = 0 To UBound(arr) '由于不确定用户的图片格式，因此遍历图片格式 If Len(Dir(strPicPath & arr(i))) Then '如果存在相关文件 rngEach.AddComment '增加批注 With rngEach.Comment .Visible = True '批注可见 .Text Text:='' .Shape.Select True '选中批注图形 Selection.ShapeRange.Fill.UserPicture strPicPath & arr(i) '插入图片到批注中 .Shape.Height = 150 '图形的高度，可以根据需要自己调整 .Shape.Width = 150 '图形的宽度，可以根据需要自己调整 .Visible = False '取消显示 End With b = True '标记找到结果 n = n + 1 '累加找到结果的个数 Exit For '找到结果后就可以退出文件格式循环 End If Next If b = False Then k = k + 1 '如果没找到图片累加个数 End If Next MsgBox '共处理成功' & n & '个图片，另有' & k & '个非空单元格未找到对应的图片。' Application.ScreenUpdating = TrueEnd Sub

    小贴士▼

    1）代码运行后，会弹出一个对话框，要求用户选择图片所存放的文件夹，注意是选择文件夹，不是选择图片，双击打开文件夹后看不到图片是正常现象……
    2）图片的名称需要和单元格的内容相匹配；小代码如果找不到单元格的内容所对应的图片，会直接跳过，处理下一个单元格；代码运行结束后，会发出信息，告知一共处理成功了几个图片以及未成功几个非空单元格的图片。

    3）代码中使用了intersect语句交叉选取已使用的单元格区域。

      Set rngData = Intersect(rngData.Parent.UsedRange, rngData)

      用户可以选择整列（比如整个A列）或多列单元格区域运行代码，而不用担心因为运算量过大，造成程序假死的情况。

      4）代码导入的图片格式支持五种常见的类型

        '.jpg', '.jpeg', '.bmp', '.png', '.gif'

        5）批注图片的高度和宽度可以根据自身情况做调整，相关代码如下。如需修改，直接查找替换，将150替换为指定值即可。
          .Shape.Height = 150 \'图形的高度，可以根据需要自己调整.Shape.Width = 150 \'图形的宽度，可以根据需要自己调整
          赞 (0)

          相关推荐