用VBA代码(宏)来快速实现Excel批注图片批量添加,步骤如下:

1、准备图片:将需要添加为批注的图片全部复制到某个文件夹中,并以“名称.jpg”来命名。

2、在单元格中输入名称,名称必需和图片名称相对应

3、打开exl表,在VBA编辑器中添加下面的代码:(快捷键:Alt+F11)

4、插入——模块,修改名称,如“批量批注图片”

excel批量批注托增加VBA模板代码

5、复制一下代码到“批量批注图片”编辑栏中
Sub 添加图片批注()
     On Error Resume Next
     Dim Cell As Range
     Dim Pics As String
     Dim ErrCell As String
     Selection.ClearComments
    For Each Cell In Selection
    Pics = "D:\this\pic\" & Cell.Value & ".jpg"
    If Dir(Pics) = "" Then
       ErrCell = ErrCell & "" & Cell.Address(0, 0)
    Else
    With Cell.AddComment
      .Shape.Fill.UserPicture PictureFile:=Pics
      .Shape.Height = 300
      .Shape.Width = 230
    End With
    End If
    Next
     MsgBox "以下单元格没有图片哦!" & vbCrLf & ErrCell
End Sub

7、修改以上代码,两处

excel批注图片方法代码编辑

批量批注图片截取文件夹链接

8、编辑好后保存(Ctrl+S),关闭VBA编辑器,回到exl表中选择你需要插入批注的单元格——视图——查看宏——选择刚刚设置的宏文件“批量批注图片”——执行(或双击),完成批量批注图片。(注:如需调整尺寸,需要在已插入的批注中右键——删除批注——Alt+F11——重新调整尺寸数字保存,在重新执行宏即可。)

excel批量批注图片执行宏文件

excel批量批注图片设置保存完成

那么问题来了!

设置好后,保存。会出现这样的语句:

在EXCEL中遇到这样的一个提示要怎么解决隐私问题警告此文档中包含宏,Activex控件XML扩展包信息或Web组件,它们中可能包含个人信息,这些信息无法通过设置“工具”菜单下“选项”对话框“安全性”

根本原因是:此文档中包含宏、ActiveX控件,XML扩展包信息或Web组件。

也就没办法保存了。那么这个时候就应该找方法解决

1、 针对2003-2007的excel版本

点击“工具栏”菜单下“选项”对话框“安全性”选项卡

将其中的“保存时从文件属性中删除个人信息”不要选取(即取消打勾)

这样后,就不会出现这个提示框.

2、 对于2010的excel版本,很多朋友抱怨没有选项卡,其实在“开发工具”这里!先来添加“开发工具”

exl启用宏后无法保存

 

批量批注图片后该如何保存

 

“主选项卡”——“开发工具”——“宏安全性”——“个人信息选项”——“保存时从文件属性中删除个人信息”去掉勾——保存即可

excel运用宏后设置个人信息选项

 

确定后,现在就能成功保存了!