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

腐朽的梦想

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

      1.准备图片

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

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

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

1. Sub AddABunch()
   
2.     For Each cell In Selection
   
3.     Pics= "h:\pic" & cell.Value & ".jpg"
   
4.     With cell.AddComment
   
5.       .Shape.Fill.UserPicture PictureFile:=Pics
   
6.       .Shape.Height = 100
   
7.       .Shape.Width = 100
   
8.     End With
   
9.     Next cell
   
10.     End Sub

复制代码

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

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

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

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