小引

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

上一篇：石墨热场，热场导流筒    下一篇：「断货王」协和维E乳成医好意思爆款｜病院同款三支装直降