要在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