通过查找就能自动都相应照片对应

pine147314878 · 发表于 2017-10-8 15:52

如何通过查找档案号，就能让表格内的照片自动出现。都用vlookup函数弄好了。就是不会弄照片，打印的时候也能对应的名字和照片对应起来。请各位帮下忙，谢谢

uynayna · 发表于 2017-10-8 16:13

Dim VPicFile, re As Range
i = Cells(3, 3)
Range("o3").Select
Set re = ActiveCell
VPicFile = ThisWorkbook.Path & "\照片" & "\" & i & ".jpg"
ActiveSheet.Shapes.AddPicture VPicFile, msoTrue, msoCTrue, re.Left, re.Top, re.Width, re.MergeArea.Height

pine147314878 · 发表于 2017-10-8 22:33

uynayna 发表于 2017-10-8 16:13
Dim VPicFile, re As Range
i = Cells(3, 3)
Range("o3").Select

可以弄在附件里面吗？谢谢

		自动登录	找回密码
密码			免费注册

[求助] 通过查找就能自动都相应照片对应