excel批量插入图片批注

 时间:2026-02-15 20:01:54

1、首先我们把花名册的excel表格和图片放同一个目录下,图片单独放在一个文件夹里,按姓名栏对应图片命名,并保证图片的格式统一。

excel批量插入图片批注

excel批量插入图片批注

2、右键花名册工作表,点查看代码,打开代码编辑框。或者点击宏工具调出代码编辑框也可以。

excel批量插入图片批注

3、在框中输入代码:

Sub 批量插入图片批注提示()

Dim a

a = MsgBox("正在插入图片批示", vbOKCancel, "提示")

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 & "\相片\" & MR.Value & ".jpg"

End If

Next

End If

End Sub

上述代码中的“相册”与你存放图片的文件夹同名,.jpg就是图片格式,也要和你的图片格式相同。

excel批量插入图片批注

4、选中要插入图片的姓名所在单元格,点击代码框的运行按钮,即这个三角形。就开始运行代码了。

excel批量插入图片批注

5、在弹出的提示框中确定,就会发现代码运行完毕了。刚才选中的单元格右上角都有了红色的三角点,鼠标指针放上去就会显示相应的图片了。

excel批量插入图片批注

  • Excel怎么制作智能多级下拉列表
  • win10 excel怎么设置优化实现最佳显示?
  • Excel中常用的Alt相关的快捷键大全(10)
  • 在excel中实现首拼输入
  • 利用vba来快速以表格形式插入图片名+图片
  • 热门搜索
    儿童男孩发型 鄙夷的近义词 微商代理怎么做 五行缺水怎么办 情怀的近义词 怎么查社保交了多久 工资级别怎么填写 银杏怎么吃 怎么删除用户 房产证丢了怎么补办