excel批量插入图片批注

2024-11-20 12:15:57

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

excel批量插入图片批注excel批量插入图片批注

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

excel批量插入图片批注

3、在框中输入代码:Sub 批量插入图片批注提示()Dim aa = MsgBox(&孥恶膈茯quot;正在插入图片批示", vbOK潮贾篡绐Cancel, "提示")If a = 1 ThenOn Error Resume NextDim MR As RangeDim Pics As StringFor 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 IfNextEnd IfEnd Sub上述代码中的“相册”与你存放图片的文件夹同名,.jpg就是图片格式,也要和你的图片格式相同。

excel批量插入图片批注

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

excel批量插入图片批注

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

excel批量插入图片批注
猜你喜欢