小序

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

保举阅读

哄骗VBA已毕列表框项指标上移下移功能

哄骗VBA已毕使命表批量清楚/荫藏

手把手教你已毕Excel聚光灯功能

基于Excel VBA诡计的抽奖系统

哄骗VBA操作Excel称呼处理器

想了解更多精彩实质🔥竞猜大厅-甲级职业联赛-英雄联盟官方网站-腾讯游戏，快来热心VBAMatrix