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

VBAMatrix 2024-11-01 10:25:25
引言

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

0 阅读:9

VBAMatrix

简介:分享MS Excel/Word的实用技巧以及VBA代码等。