datagridview 动态插入图片_批量插入图片到单元格批注，只需一键

诸君好……

有朋友在后台提了这样一个问题，能不能根据名称一键将图片批量插入到单元格的批注中去，酱紫的话，当鼠标划过单元格，Excel就会自动显示图片了，很酷很实用……

比如下面动态图所展示的这样：

实现代码如下：

Sub CommentPic()

'ExcelHome VBA编程学习与实践 看见星光

Dim Arr, i&, k&, n&, pd&

Dim PicName$, PicPath$, FdPath$

Dim Rng As Range, Cll As Range

On Error Resume Next

'用户选择图片所在的文件夹

With Application.FileDialog(msoFileDialogFolderPicker)

.AllowMultiSelect = False '不允许多选

If .Show Then FdPath = .SelectedItems(1) Else: Exit Sub

End With

If Right(FdPath, 1) <> "" Then FdPath = FdPath & ""

Set Rng = Application.InputBox("请选择需要插入图片到批注中的单元格区域