求助，社员名薄照片自动插入！

wfxserver

老大位。帮小弟解决一下。

我有一员工信息表。想输入工号后。照片自动出来。

如附件！

网上找了好多，也试了一下。能力不足搞不定。望大师们，指点。

yck689900

你的工作表中那个不能够选中的长方形是什么东西，为什么选不中也删不掉

wfxserver

那是插入的，图像控件呀。。。

liulang0808

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Count <> 1 Then Exit Sub
   
4.     If Target.Column = 1 Then Exit Sub
   
5.     If Target.Offset(0, -1) <> "工号：" Then Exit Sub
   
6.     sFile = Target.Value
   
7.     Application.EnableEvents = False
   
8.     Target.Offset(0, -3).Select
   
9.     Set Rng = Selection
   
10.     Set photo = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\职工照片" & Target.Value & ".jpg")
    
11.     With photo
    
12.       .Name = sFile
    
13.       .ShapeRange.LockAspectRatio = msoFalse
    
14.       .Top = Rng.Top
    
15.       .Left = Rng.Left
    
16.       .Width = Rng.Width
    
17.       .Height = Rng.Height
    
18.     End With
    
19.     Application.EnableEvents = True
    
20. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

wfxserver

朱荣兴 发表于 2018-9-13 20:17
这类问题约贴子太多了，回的贴子也不少，自己搜搜看。

搜了好多。都不对。不是我想要的。

wfxserver

liulang0808 发表于 2018-9-13 20:44
附件内容供参考。。。。。。

感谢，版主的解答，是我想要的结果。谢谢。

wfxserver

liulang0808 发表于 2018-9-13 20:44

版主，还有一事咨询，工号是我用后面的表格自动出来的，请问，有什么办法让代码自动识别 工号：后面这个单元格的工号？

liulang0808

wfxserver 发表于 2018-9-14 08:56
版主，还有一事咨询，工号是我用后面的表格自动出来的，请问，有什么办法让代码自动识别 工号：后面这个 ...

楼主可以考虑单元格的位置，进行定位，考了个表格结构，做好规划，应该可以实现。
另外就是跟现在的情况雷同，结合其他单元格定位处理