excel 中如何为单元格添加批注弹出图片的方法实例教程
时间:2022-02-08 08:41:33
一个产品目录表,有产品编号列,如果能向每个产品添加一个图片来展示产品的外观样式就很完美了。
比如,下图就是使用excel的批注制作的图片提示。
给单元格添加一个弹出图片,当鼠标悬停在某个产品的单元格上时,会自动显示出这种产品的图片,按以下步骤操作就可以为单元格添加批注图片。
第一步,选中需要添加批注图片的单元格,选择“插入”——“批注”。
第二步,用鼠标在点线框上单击右键,从弹出的菜单中选择 “设置批注格式”对话框,选择“颜色和线条”选项卡,从“填充”栏的“颜色”项的下拉列表中选择“填充效果”项,随后可以打开“填充效果”对话框,选择“图片”选项卡,单击其中的“选择图片”按钮,选择要放在批注中的图片,然后连续单击“确定”按钮,回到Excel编辑状态,就可以看到选择的图片已经添加到批注中了。
通过以上操作就完成了在一个单元格添加批注图片了。上面的方法适合于给少量单元格添加图片批注,如果需要快速给多个单元格添加图片批注,又该如何操作呢?
如果有许多单元格都要添加图片批注,可以用VBA代码来快速进行,其步骤如下介绍:
第一步,准备图片
将需要添加为批注的图片全部复制到某个文件夹中,并以“产品名称.jpg”来命名。如“三星SGH-F258.jpg”、“三星SGH-F700.jpg”等。
第二步,在单元格中输入产品名称,如“三星SGH-F258”、“三星SGH-F700”等,名称必需和图片名称相对应。
第三步,按下ALT+F11键,在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”指定批注的宽度,大家在实际使用时请根据自己实际情况进行修改。
第四步,选择所有包含产品名称的单元格,运行上述代码,即允许宏,即可为所有选中的单元格添加相应的图片批注。
说明:如果要重新添加图片批注,必需先删除所有批注后再次运行VBA代码。方法是选择所有包含产品名称的单元格,鼠标右击,在弹出的快捷菜单中选择“删除批注”即可。
运行上面的代码就可以快速的给多个单元格添加图片批注,有需要的朋友,可以自己动手试试。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
如何为word文档中的文本设置指定颜色的阴影效果
![](https://img.aspxhome.com/file/2023/1/35521_0s.png)
在excel表格中绘制红苹果
![](https://img.aspxhome.com/file/2023/2/41022_0s.jpg)
excel一个合并单元格的内容如何分开两端对齐?
Excel表格怎么设置公式进行求和
Win10怎么禁用远程控制?Win10禁用远程控制操作方法
![](https://img.aspxhome.com/file/2023/7/52897_0s.png)
Excel 2019如何创建动态名称
![](https://img.aspxhome.com/file/2023/1/a140761_0s.jpg)
word2013打不开doc提示已被另一用户锁定该怎么办?
![](https://img.aspxhome.com/file/2023/6/28846_0s.jpg)
如何设置word 2013 主题
excel行高怎么统一设置
![](https://img.aspxhome.com/file/2023/5/55195_0s.gif)
vba操作Excel之MsgBox函数参数详解
Word中怎么设置图片格式图文教程
Win10电脑的还原点要怎么设置?
![](https://img.aspxhome.com/file/2023/0/51030_0s.png)
AddIn加载项在word中的概念及使用
excel插入批注的方法
Excel数据输入,难道不就是打打字吗?
Win10专业版安全中心怎么卸载?
![](https://img.aspxhome.com/file/2023/4/49534_0s.jpg)
Excel2013中怎么给工作表分列?Excel2013中给工作表分列的方法
![](https://img.aspxhome.com/file/2023/5/40875_0s.jpg)
word文档底纹怎么设置
![](https://img.aspxhome.com/file/2023/1/34151_0s.png)
win10锁屏显示图片没有日期时间怎么办
![](https://img.aspxhome.com/file/2023/2/48122_0s.jpg)