操作方法
创建宏
在宏视图下，插入代码模块
添加如下代码： Sub 插入图片批注() Dim a a = MsgBox("使用说明：1、请确认您的图片文件存在与此文件同一目录下的名称为pic的文件夹中。2、选中要添加图片批注的单元格。", vbOKCancel, "无双制作2017-6-12") 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:=ActiveWorkbook.Path & "\pic\" & MR.Value & ".jpg" End If Next End If End Sub =========== 之后点击保存
新建文件夹，将需要添加到备注的图片放到新建文件夹的pic文件中，保证Excel与pic在同一文件夹下
选定需要添加图片的单元格
启用名称为“插入图片批注”的宏，点击执行
在提示框中点击“确认”
完成后效果展示