新做了个员工档案表，自动插入图片

linka012 · 发表于 2010-11-16 19:22

非常好奇是怎么做出来的~

foxmky · 发表于 2010-11-25 15:55

还是有待学习了，会用不懂，唉！

woyaocaisini · 发表于 2010-12-7 12:44

不知道好用么？看一下！

vicky_mm · 发表于 2010-12-7 14:26

因为没有图片，所以不能用，下次考个来试试

woshuaima · 发表于 2010-12-20 22:41

很好用支持

npghaofb · 发表于 2012-8-15 17:11

图片怎么插入不了啊？

木子糖唐 · 发表于 2012-8-16 13:18

从实用角度来考虑应该，应该将命名方式改为员工编号的好。
非常感谢楼主的分享，{:soso_e185:}給力啊！

Private Sub CommandButton1_Click()
Dim s As String
On Error GoTo handle:
Sheet1.Image1.Picture = LoadPicture("")
s = ThisWorkbook.Path & "\" & Sheet1.Range("B6") & ".jpg"
Sheet1.Image1.Picture = LoadPicture(s)
Exit Sub
handle:
MsgBox "文件未找到 "
End Sub

水云 · 发表于 2012-8-16 13:45

楼主有心，不过感觉人少可以，工厂几百人就不太适合了，可以设计的更简化点，姓名和照片做个链接呵呵，

zhouquyi · 发表于 2012-9-15 19:10

插入图片找不到。

huqx · 发表于 2012-9-16 18:59

在研究、看看

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

[原创] 新做了个员工档案表，自动插入图片