哈喽,大家好。上一篇文章跟大家介绍的是excel单元格如何手动插入图片批注。但是在表格产品比较多,想要全部插入图片批注的情况下,手动一个个插入的方法就不可取了。我们说了,只要思想不滑坡 办法总比困难多。这时,我们就要考虑更高效的办法,比如:批量插入图片批注。关键如何实现?用VBA代码就可以实现
这就是今天我要跟大家分享的主题:excel用VBA代码实现单元格批量插入图片批注。
具体操作方法,如下:
一、准备产品图片
1、先准备好要插入单元格批注的产品图片,将其放在同一个文件夹下,并确保图片名称和表格中的产品名称一样对应;
2、将存放产品图片的文件夹放在跟准备插入批注的excel文件同一目录下面,如下:
二、添加VBA代码
1、打开excel文件,右键工作表标签—【查看代码】;
2、在打开的VBA窗口中,输入代码,如下图,然后关闭VBA窗口。
附上批量插入图片批注的代码:
Sub 批量添加图片批注()
For Each cell In Selection '循环要插入批注的单元格
pics = ThisWorkbook.Path & "产品图片" & cell.Value & ".jpg" '图片存放地址
cell.ClearComments '先清空批注
With cell.AddComment '为区域添加批注
On Error Resume Next
.Shape.Fill.UserPicture picturefile:=pics '插入图片
.Shape.Height = 50 '设置图片高度
.Shape.Width = 100 '设置图片宽度
End With
Next cell
End Sub
三、运行宏
1、鼠标选择要插入批注的所有单元格,点击【开发工具】的【宏】按钮;
2、在弹出的的【宏】窗口中,点击【执行】,如下:
这时,可以看到,表格里的产品都插入了图片批注。
强调说明:
1、要插入批注的图片名称一定要与表格内的产品名称保持一致,否则匹配不到。
2、放图片的文件夹一定要与表格放在同一个目录下。
3、Excel文件要启用宏,才能运行。有些默认设置,宏没有启用,可以按照以下方法启用:
【文件】—【选项】—【信任中心】—【信任中心设置】—【宏设置】—【启用所有宏】。
4、如果excel菜单没有【开发工具】,需要先设置,方法如下:【文件】—【选项】—【自定义功能区】,将右侧的【开发工具】选项打勾,就可以了。