我们在使用EXCEL的时候经常会遇到需要给对应的项目配图。比如我们在做商品推荐清单时经常需要给商品清单附加对应的图片。通常的做法是直接把图片放置在商品名称旁边的单元格。但是这种做法如果不小心调整单元格就会造成图片错位。而且在放置图片时需要对图片和放置图片的单元进行调整很麻烦。所以我们可以选择使用批注添加图片的方法来配图。小编在之前的文章中也分享了如何手动添加图片批注的方法--这节课我们来学习更高效的添加图片批注的方法--用VBA编程实现批量添加图片批注。话不多说现在就带大家一起来看一下如何实现的吧。
步骤：
按alt+f11进入VBA 编程界面 ，右击工作表--插入-模块 如下图所示：2.写入如图所示码：代码如下：
Sub AddComment_()
On Error Resume Next
Set obj = Application.FileDialog(msoFileDialogFolderPicker)
With obj
If .Show = -1 Then
spath = .SelectedItems(1)
End If
End With
row_b = Val(InputBox("请输入序号启始行号，如第1行输 1"))
row_e = Val(InputBox("请输入序号结束行号，如第10行输 10"))
col_ = Val(InputBox("请输入序号所在的列号，如第1列输 1"))
pcol_ = Val(InputBox("请输入要图片所在的列号，如第2列输 2"))
For i = row_b To row_e
Cells(i, pcol_).AddComment
Cells(i, pcol_).Comment.Shape.Fill.UserPicture (spath & "\" & Cells(i, col_).Value & ".jpg")
Cells(i, pcol_).Comment.Visible = False
Next
End Sub
3.在文档中添加触发程序的按键，并指定到程序：插入-形状-矩形 如下图：
4.点我们刚做好的形状按键 执行如下图所示：选择图片路径
选择序号启始行
选择序号最后一行
选择序号所在的列
选择图片所在的列
最终效果5.将文件保存为*.xlsm 的格式。这样的格式才能支持代码的运行。
总结：用此方法的优点 可以快速批量的插入批注图片，而且能让图片与序号 一 一 对应。
今天就跟大家分享到这了，如果大家喜欢我分享的内容请收藏、转发、点赞。