你的位置:中国(九游会)官方网站 > 新闻动态 > 中国(九游会)官方网站咱们不错讹诈VBA完了在Excel批量插入图片批注-中国(九游会)官方网站
中国(九游会)官方网站咱们不错讹诈VBA完了在Excel批量插入图片批注-中国(九游会)官方网站
发布日期:2024-11-09 05:57    点击次数:155

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

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