用VBA代码来快速实现Excel批注图片批量添加，步骤如下：
1.准备图片
将需要添加为批注的图片全部复制到某个文件夹中，并以“名称.jpg”来命名。
2.在单元格中输入名称，名称必需和图片名称相对应。
3.用ALT+F11打开VBA编辑器中添加下面的代码：
Sub 添加图片批注()
On Error Resume Next
Dim Cell As Range
Dim Pics As String
Dim ErrCell As String
Selection.ClearComments
For Each Cell In Selection
Pics = "E:\图片文件夹\" & Cell.Value & ".jpg"
If Dir(Pics) = "" Then
ErrCell = ErrCell & "" & Cell.Address(0, 0)
Else
With Cell.AddComment
.Shape.Fill.UserPicture PictureFile:=Pics
.Shape.Height = 100
.Shape.Width = 100
End With
End If
Next
MsgBox "以下单元格没有图片哦！" & vbCrLf & ErrCell
End Sub
其中“E:\图片文件夹\”为图片所在文件夹，“ .Shape.Height = 100”指定批注图片的高度， “.Shape.Width = 100”指定批注的宽度，请根据实际情况进行更改。
4.选择所有包含名称的单元格，运行上述代码（用ALT+F8执行代码即可），即可为所有选中的单元格添加相应的图片批注。
注意在选择产品名称所在单元格时，仅仅选择所需单元格，而不能选择其他单元格，特别是在这些单元格不连续时，否则会出错。
5.如果要重新添加图片批注，必需先删除所有批注后再次运行VBA代码。方法是选择所有包含产品名称的单元格，鼠标右击，在弹出的快捷菜单中选择“删除批注”即可。
本文档为【EXCEL2003-2010用VBA代码来快速实现Excel批注图片批量添加】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483