从文件夹中查找照片插入到表格

youth5520461

求高手帮忙！我想使用VBA代码，在单元格AL56中插入来自文件夹中对应的照片。
通过单元格CT39来查找文件夹中对应身份证号码命名的照片，插入到表“单个打印推荐表封面”中的单元格“AL56”中

ione_fox

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Path$, L, T, W, H, Shapes, Shp
   
3. If Target.Address = "$CT$33" Then
   
4.     L = Range("al56").Left
   
5.     T = Range("al56").Top
   
6.     W = Range("al56").Width * 8.9
   
7.     H = Range("al56").Height * 8.9
   
8.     Path = ThisWorkbook.Path & "\照片" & Range("ct39").Value & ".jpg"
   
9.         For Each Shp In Sheet1.Shapes
   
10.         On Error Resume Next
    
11.             If Shp.TopLeftCell.Address = "$AL$56" Then
    
12.                 Shp.Delete
    
13.             End If
    
14.         Next
    
15.     Sheet1.Shapes.AddShape(msoShapeRectangle, L, T, W, H).Select
    
16.     Selection.ShapeRange.Fill.UserPicture (Path)
    
17. End If
    
18. End Sub
    

复制代码