如何根据表中姓名，然后自动插入图片

mchuua999

因为工作需要，需要根据学员导入相应的相片（相片尺寸都已裁剪好），我想根据D5单元格的学员数据，让K4单元格自动显示对应姓名的照片，照片和文件全放在同一个文件夹下，不知道怎么编程？求高手解答

liulang0808

http://club.excelhome.net/thread-1441877-1-1.html
资料可以参考下

chxw68

1. Sub autopic()
   
2.   Dim i%, j%
   
3.   Dim shp As Shape
   
4.   Dim mypath$, myname$
   
5.   
   
6.   Application.ScreenUpdating = False
   
7.   Application.DisplayAlerts = False
   
8.   With Worksheets("sheet1")
   
9.     For Each shp In .Shapes
   
10.       If shp.Type = 11 Then shp.Delete
    
11.     Next
    
12.     r = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    
13.     mypath = ThisWorkbook.Path & ""
    
14.     For i = 5 To r Step 13
    
15.       xm = .Cells(i, 4)
    
16.       If Dir(mypath & xm & ".jpg") <> "" Then
    
17.         mypcname = mypath & xm & ".jpg"
    
18.         .Cells(i - 1, 11).Select
    
19.         .Pictures.Insert(mypcname).Select
    
20.         With Selection
    
21.           .Placement = xlMoveAndSize
    
22.           .ShapeRange.LockAspectRatio = msoFalse
    
23.           .Top = ActiveCell.Top
    
24.           .Left = ActiveCell.Left
    
25.         End With
    
26.       End If
    
27.     Next
    
28.   End With
    
29.   Application.ScreenUpdating = True
    
30.   MsgBox "图片插入完毕！"
    
31. End Sub
    

复制代码

chxw68

详见附件。

mchuua999

谢谢高手，这就是我想要的结果，万分感谢