利用VBA在Excel批量插入图片批注

要在Excel某个单元格插入图片批注，其详细步骤如下：

1.右键某个单元格，然后选择“新建注释”；

2.在注释边框上，右键选择“设置批注格式”；

3.在“设置批注格式”对话框中，依次选择“颜色与线条”--->“填充”--->“填充效果”；

4.在“填充效果”对话框里，点击“图片”--->“选择图片”。

图片批注

可以看到，给某个单元格插入图片批注的步骤相对繁琐。如果要在多个单元格插入图片批注，一个一个单元格重复以上操作，显然不是较好的选择。

因此，我们可以利用VBA实现在Excel批量插入图片批注。主要有以下好处：（1）尽可能地减少手动插入图片批注的繁琐过程；（2）实现单元格的值与图片文件名的自动匹配；（3）可以自定义图片批注的长宽等属性。

设计思路

1.选中要插入图片的单元格区域；

2.弹出对话框，允许我们选择图片的文件夹路径；

3.遍历选中的单元格区域，如果单元格的值与图片文件名一致，则插入图片批注；

4.最后，批量设置图片批注的长宽等属性。

批量插入图片注释GIF

VBA代码

Sub批量插入图片批注

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "请选择JPG图片所在的路径"

.InitialFileName = "d:\"

If .Show Then

Dim pathSelected As String

pathSelected = .SelectedItems(1)

Else

Exit Sub

End If

End With

Dim Cmt As Comment

On Error Resume Next

Dim rng As Range

For Each rng In Selection

Dim fn As String

fn = pathSelected & "\" & rng.Value & ".jpg"

If (Not IsEmpty(rng)) And Dir(fn) "" Then

rng.Select

rng.AddComment

rng.Comment.Visible = False

rng.Comment.Text Text:=" "

rng.Comment.Shape.Fill.UserPicture PictureFile:=fn

End If

Next

'修改图片注释的长宽

For Each Cmt In ActiveSheet.Comments

Cmt.Parent.Comment.Shape.Width = 200

Cmt.Parent.Comment.Shape.Height = 100

Next

End Sub