excle 插入图片 求大佬帮帮忙

444172107

有很多个文件夹，里面有多张图片，需要将其插入到指定的位置；我是小白，自己东凑西拼的搞了一每次只能插入一个文件夹的图片，求大佬帮忙指导一下，如何一次性将不同文件夹的插入到指定位置，万分感谢。一下是小弟写的，求大佬帮帮我！

Sub 插图图片()
  Dim file
  Dim rn As Range
  
  Dim n As Integer, i As Integer, rnw As Integer, rnh As Integer
  Dim j As Shape
  
  i = InputBox("插入哪一行", "请输入数字")
  
  n = 2
  Application.FileDialog(msoFileDialogFilePicker).Show
  
  For Each file In Application.FileDialog(msoFileDialogFilePicker).SelectedItems
      
     Set rn = Cells(i, n)
     rnw = rn.Width
     rnh = rn.Height
     
     ActiveSheet.Shapes.AddPicture file, 0, 1, ActiveSheet.Cells(i, n).Left + 10, ActiveSheet.Cells(i, n).Top + 10, rnw - 20, rnh - 20
     n = n + 1
     
   
      
  Next file
  


End Sub

444172107

我想要的效果是   判定文件夹名字，然后将里面的图片插入到指定的位置，哪位大佬帮小弟看一下，谢谢了！主题忘记发附件了

444172107

C:\Users\Administrator\Desktop\excel 练习\picture

想要一键插入3个文件夹，求指导下

444172107

新手刚来这里，发帖都发不好，大家见笑了，这是图片

benhsu

加入循环找文件夹和文件即可，没有递归子文件夹及判断文件类型等容错

444172107

benhsu 发表于 2022-10-6 16:43
加入循环找文件夹和文件即可，没有递归子文件夹及判断文件类型等容错

谢谢，今天在百度贴吧也找到了方法，大致也是这样的，非常感谢你