请高手指教如何在表中自动插入同时插入多张图片

jjmysjg

不知道为什么 发表于 2018-7-1 23:03
老铁，你这让我很惊悚啊，论坛大神太多，我也只是刚入门，就是喜欢联系而已！最近断断续续的在学习正则方 ...

大侠，代码能上传吗
谢谢

minren118

可以试试Excel催化剂插件来完成它，多次重复操作的话，首选插件来完成。http://club.excelhome.net/thread-1403328-1-1.html

chenjx80

链接: https://pan.baidu.com/s/1T7ZgI3AOYns4yqiIajlxfw 密码: qmjh

未忘初心

1. Sub Main()
   
2. 'Date:2018/7/2 五月十九 Monday
   
3. 'Application.DisplayAlerts = False
   
4. 'ThisWorkbook.Save
   
5. 'Application.DisplayAlerts = True
   
6.     Dim shp As Shape
   
7.     For Each shp In Sheet1.Shapes
   
8.         If shp.TopLeftCell.Row > 6 And shp.TopLeftCell.Row < 35 Then
   
9.             If shp.TopLeftCell.Column > 0 And shp.TopLeftCell.Column < 15 Then
   
10.                 shp.Delete
    
11.             End If
    
12.         End If
    
13.     Next
    
14. 
    
15.     Filename = ThisWorkbook.Path
    
16.     ar = Array(2, 6, 11)
    
17.     With Sheet1
    
18.         For j = 0 To 1
    
19.             For i = 0 To 2
    
20.                 k = k + 1
    
21.                  picpath = Filename & "\车辆图片" & .Range("h4").Value & "" & .Range("h4").Value & " (" & k & ").JPG"
    
22.                 If Len(Dir(picpath)) Then
    
23.                     Set shp = .Shapes.AddShape(msoShapeRectangle, Cells(8 + j * 13, ar(i)).MergeArea.Left + 1, Cells(8 + j * 13, ar(i)).MergeArea.Top + 1, Cells(8 + j * 13, ar(i)).MergeArea.Width - 1, Cells(8 + j * 13, ar(i)).MergeArea.Height - 1)
    
24.                     shp.Fill.UserPicture picpath
    
25.                     shp.Line.Visible = msoFalse
    
26.                     Set shp = Nothing
    
27.                 Else
    
28.                     MsgBox "没找到  " & picpath
    
29.                 End If
    
30.             Next
    
31.         Next
    
32.     End With
    
33. End Sub
    

复制代码

四川猴子

未忘初心 发表于 2018-7-2 15:15

我复制代码粘贴到文档中，却无法实现图片自动插入的功能，我是VBA小白，望老师指点哪里出了问题

四川猴子

chenjx80 发表于 2018-7-2 12:37
链接: https://pan.baidu.com/s/1T7ZgI3AOYns4yqiIajlxfw 密码: qmjh

就是这样的效果，不知老师怎样实现的呢

四川猴子

minren118 发表于 2018-7-2 10:34
可以试试Excel催化剂插件来完成它，多次重复操作的话，首选插件来完成。http://club.excelhome.net/thread- ...

谢谢老师，对插件的运用还比较陌生，看能不能尽快熟悉