用VBA将文件夹里面的照片插入到Excel

excelers

照片的文件名为表中对应的身份证号码，需要将对应的照片插入到灰色底纹的区域。

蓝桥玄霜

图片的代码：

1. Sub lqxs()
   
2. Dim ML, MT, MW, MH, shp As Shape, rng As Range
   
3. Dim myPath$, myName$
   
4. 
   
5. myPath = ThisWorkbook.Path & "\照片文件夹"
   
6. myName = Dir(myPath & [e3].Value & ".jpg")
   
7. If myName <> "" Then
   
8.     Set rng = [i1:i3]
   
9.     With rng
   
10.         ML = .Left
    
11.         MT = .Top
    
12.         MW = .Width
    
13.         MH = .Height
    
14.         For Each shp In ActiveSheet.Shapes
    
15.             If shp.Type = 13 Then
    
16.                 If shp.TopLeftCell.Address = rng.Offset(0, 0).Address Then
    
17.                     shp.Delete
    
18.                 End If
    
19.             End If
    
20.         Next
    
21.         ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    
22.         Selection.ShapeRange.Fill.UserPicture myPath & "" & [e3].Value & ".jpg"
    
23.     End With
    
24. End If
    
25. [a1].Select
    
26. End Sub
    
27. 
    

复制代码