实现的效果：

实现的代码如下：

Sub InsertImageNamesAndPictures()Dim PicPath As StringDim PicName As StringDim PicFullPath As StringDim RowNum As IntegerDim Name As StringDim Comment As CommentDim folder As FileDialog '定义文件选择对话框' 清空单元格中的内容和图片，防止有脏数据Cells.ClearFor Each Pic In ActiveSheet.PicturesPic.DeleteNext Pic'忽略出现的错误，继续执行后面的代码,假如这个图片不存在或者有所损坏，会继续执行下个图片的插入On Error Resume Next' 设置你的图片文件夹路径(两种获取文件路径的方法)'PicPath = "C:\Users\HUAWEI\Pictures\Screenshots\"'上面的是直接写出文件路径，下面的是动态的选择选择路径'set folder创建并设置一个文件夹选择对话框Set folder = Application.FileDialog(msoFileDialogFolderPicker)'这里等于-1是用户选择并点击“确定”了文件夹，如果用户点击取消没有选择文件夹，就会返回0If folder.Show = -1 Then'folder.SelectedItems(1)返回了文件夹的路径，只不过最后没有\。PicPath是图片路径，最后加上\PicPath = folder.SelectedItems(1) & "\"ElseMsgBox "未选择文件夹，程序结束"Exit SubEnd If' 初始化行号RowNum = 1' 获取文件夹中的第一个文件名PicName = Dir(PicPath & "*.*")' 遍历所有图片文件Do While PicName <> ""' 去掉文件扩展名Name = Left(PicName, InStrRev(PicName, ".") - 1)' 将文件名插入到 A 列Cells(RowNum, 1).value = Name' 拼接完整路径PicFullPath = PicPath & PicName' 在 A 列单元格添加批注Set Comment = Cells(RowNum, 1).AddCommentComment.Text Text:=" "  ' 必须有一些文本' 插入图片到批注中With Comment.Shape.Fill.UserPicture PicFullPath  ' 设置图片作为批注的背景.Width = 50  ' 设置图片宽度.Height = 50 ' 设置图片高度End With' 设置行高（可以根据需要调整）Rows(RowNum).RowHeight = 50' 移动到下一行RowNum = RowNum + 1' 获取下一个文件名PicName = DirLoop
End Sub

实现删除批注：