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代码。方法是选择所有包含产品名称的单元格,鼠标右击,在弹出的快捷菜单中选择“删除批注”即可。

分享给朋友:
您可能感兴趣的文章:
随机阅读: