excel利用VBA快速给多个单元格添加图片批注

如果有一个产品列表要提交给用户查看，我们可以给产品名称所在单元格添加图片批注，这样当用户在查看产品信息时，鼠标放到单元格中就可以看到该产品图片。其具体的操作方法见本站的“给单元格添加图片注释”一文，但这个方法仅适合于给少量单元格添加图片批注，如果有许多单元格都要添加图片批注，可以用VBA代码来快速进行，步骤如下：

1.准备图片

将需要添加为批注的图片全部复制到某个文件夹中，并以“产品名称.jpg”来命名。如“三星SGH-F258.jpg”、“三星SGH-F700.jpg”等。

2.在单元格中输入产品名称，如“三星SGH-F258”、“三星SGH-F700”等，名称必需和图片名称相对应。

3.在VBA编辑器中添加下面的代码：

Sub AddABunch()
For Each cell In Selection
Pics= "h:\pic\" & cell.Value & ".jpg"
With cell.AddComment
.Shape.Fill.UserPicture PictureFile:=Pics
.Shape.Height = 100
.Shape.Width = 100
End With
Next cell
End Sub

其中“h:\pic\”为图片所在文件夹，“ .Shape.Height = 100”指定批注图片的高度， “.Shape.Width = 100”指定批注的宽度，请根据实际情况进行更改。

4.选择所有包含产品名称的单元格，运行上述代码，即可为所有选中的单元格添加相应的图片批注。

注意在选择产品名称所在单元格时，仅仅选择所需单元格，而不能选择其他单元格，特别是在这些单元格不连续时，否则会出错。

5.如果要重新添加图片批注，必需先删除所有批注后再次运行VBA代码。方法是选择所有包含产品名称的单元格，鼠标右击，在弹出的快捷菜单中选择“删除批注”即可。