绪论中国(九游会)官方网站

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