缩略图效果，匹配数据表中的身份证号码

zhangjian0622

已经修改了 是我没有备注清楚
1在表格列显示照片
2根据d列的手动输入的姓名在e列匹配该生的身份证号码，身份证号码在数据表中。
麻烦大神 帮忙瞧瞧，万分感谢。

zjdh

看不懂你的要求

zhangjian0622

1照片显示在b单元格，2照片照片名称匹配数据表中的身份证号码，显示在d列

zhangjian0622

已经修改了 是我没有备注清楚
1在表格列显示照片
2根据d列的手动输入的姓名在e列匹配该生的身份证号码，身份证号码在数据表中。
麻烦大神 帮忙瞧瞧，万分感谢。

附件在第一个，麻烦了

zjdh

照片名称与表中内容没有任何关联，无法导入对应照片！

zhangjian0622

zjdh 发表于 2021-9-19 09:28
照片名称与表中内容没有任何关联，无法导入对应照片！

照片名称和数据表关联啊，根据照片名称获取相关的身份证号码显示在d列呢

zjdh

关联在哪？照片名称：1、2、3、.....，表中哪来的这些数字?
有：666、333、222.....照片文件吗？

zhangjian0622

zjdh 发表于 2021-9-19 17:09
关联在哪？照片名称：1、2、3、.....，表中哪来的这些数字?
有：666、333、222.....照片文件吗？

不好意思 我没表达清除   要达到的效果 已经在一楼更新，期待您的答复！

zhangjian0622

大神在哪里？

zhangjian0622

1. Sub 插入图片()
   
2. On Error Resume Next
   
3.     Dim i As Integer
   
4.     Dim FilPath As String
   
5.     Dim rng As Range
   
6.     Dim s As String
   
7.     With Sheet1
   
8.         For i = 3 To .Range("a65536").End(xlUp).Row  '(名称第3行开始)
   
9.             FilPath = ThisWorkbook.Path & "\原照片" & .Cells(i, 1).Text & ".jpg"
   
10.             If Dir(FilPath) <> "" Then
    
11.                 .Pictures.Insert(FilPath).Select
    
12.                 Set rng = .Cells(i, 2)  '2（照片放在第2列）
    
13.                 With Selection
    
14.                     .Top = rng.Top + 1
    
15.                     .Left = rng.Left + 1
    
16.                     .Width = rng.Width - 1
    
17.                     .Height = rng.Height - 1
    
18.                 End With
    
19.             Else
    
20.                 s = s & Chr(10) & .Cells(i, 1).Text
    
21.             End If
    
22.         Next
    
23.         .Cells(2, 1).Select  '2（照片放在第2列）
    
24.     End With
    
25.     If s <> "" Then
    
26.         MsgBox "没有以下照片：" & s & Chr(10)
    
27.     Else
    
28.         MsgBox "图片导入成功！"
    
29.     End If
    
30. End Sub
    
31. 
    
32. 
    
33. 这个代码这么加入呢？实现图片在导入同时显示照片在第二列呢？

复制代码