首页 > Excel专区 > Excel函数 >

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

Excel函数 2022-02-16 20:59:06

如果有一个产品列表要提交给用户查看,我们可以给产品名称所在单元格添加图片批注,这样当用户在查看产品信息时,鼠标放到单元格中就可以看到该产品图片。其具体的操作方法见本站的“给单元格添加图片注释”一文,但这个方法仅适合于给少量单元格添加图片批注,如果有许多单元格都要添加图片批注,可以用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代码。方法是选择所有包含产品名称的单元格,鼠标右击,在弹出的快捷菜单中选择“删除批注”即可。


标签: 三星单元格图片批注excel函数

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9