小引

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