如何在EXCEL中输入姓名，即指定单元格中自动插入同名照片

看见星光

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Application.ScreenUpdating = False
   
4. If Target.Address <> "$D$2" Or Len([D2]) = 0 Then Exit Sub
   
5. ActiveSheet.DrawingObjects.Delete
   
6. path = ThisWorkbook.path & "/"
   
7. s = [D2].Value
   
8. ActiveSheet.Pictures.Insert(path & s & ".jpg").Select
   
9. With Selection
   
10.     .ShapeRange.LockAspectRatio = msoFalse
    
11.     .Top = [q2].Top + 2
    
12.     .Left = [q2].Left + 2
    
13.     .Height = [q2].MergeArea.Height - 4
    
14.     .Width = [h2].MergeArea.Width * 1.4
    
15. End With
    
16. Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

看见星光

附件参考 98.rar (263.06 KB, 下载次数: 208)

2015-10-24 19:29 上传

点击文件名下载附件

nsstcr

看见星光 发表于 2015-10-24 19:29
附件参考

您好，原来VBA代码是我照葫芦画瓢弄上去的，怎么能删掉。您给的代码如何复制运用，能否详细讲解，谢谢。

nsstcr

谢谢各位无私帮助，问题已解决，不胜感激！今后如有难题还得麻烦老师们，还望多多指教！{:soso_e163:}{:soso_e163:}{:soso_e163:}

hahahaha0001

这个问题也用得很多呀。谢谢解答的朋友。

SFG328

看见星光 发表于 2015-10-24 19:29
附件参考

你好，我也需要一个差不多这样效果的，不知道可以不帮忙弄下

就是C列输入名称，B列自动显示文件夹中相应名称图片

SFG328

谁能帮尽快做下，真不懂这些

SFG328

文件上传，希望各位大神能帮忙

自由！自在

看见星光 发表于 2015-10-24 19:29
附件参考

你好，这个是这么弄的，可以说一下吗，

自由！自在

看见星光 发表于 2015-10-24 19:29
附件参考

如何把照片地址改为别的文件夹（照片不和excel在同一个文件夹）？