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

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

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

1.准备图片

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

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

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

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

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

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

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。