[已解决]图片插入问题求解

兰馨雨

这种图片导入问题，老师们可以VBA实现吗

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-5 20:35

因为这句的反斜杠被论坛吃了：
fPath = ThisWorkbook.Path & ""
应该是：
fPath = ThisWorkbook.Path & "\"

跳转到最佳答案楼层

大灰狼1976

1. Sub test()
   
2. Dim fPath$, fName$, rng As Range, n&
   
3. Sheets(1).Pictures.Delete
   
4. Set rng = Sheets(1).[a2:b3]
   
5. fPath = ThisWorkbook.Path & ""
   
6. fName = Dir(fPath & "*.png")
   
7. Do While fName <> ""
   
8.   n = n + 1
   
9.   With Sheets(1).Pictures.Insert(fPath & fName)
   
10.     .ShapeRange.LockAspectRatio = msoFalse
    
11.     .Top = rng(n).Top
    
12.     .Left = rng(n).Left
    
13.     .Height = rng(n).Height
    
14.     .Width = rng(n).Width
    
15.   End With
    
16.   fName = Dir
    
17. Loop
    
18. End Sub

复制代码

兰馨雨

老师代码运行了没反应呀

兰馨雨

老师代码运行了没反应呀

大灰狼1976

因为这句的反斜杠被论坛吃了：
fPath = ThisWorkbook.Path & ""
应该是：
fPath = ThisWorkbook.Path & "\"