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

czjmjym · 发表于 2012-9-17 14:18

这个非常好，谢了！

夏日琉璃 · 发表于 2012-9-25 23:00

{:soso_e179:}

~头发乱了~ · 发表于 2013-4-4 13:50

你真是技术强人啊

真的好想你 · 发表于 2013-4-24 07:22

瞎说没图片也没宏用不了

zhang6157 · 发表于 2013-4-25 12:14

谢谢楼主分享，学习ING

aajjhh · 发表于 2013-4-27 20:30

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

aob · 发表于 2013-6-2 23:14

用员工的身份证号码作为编号，这样好像不太符合实际情况。

zjylsjwz · 发表于 2013-6-4 15:12

打酱油的围观中

verywondful · 发表于 2014-2-27 09:50

很好，很强大，能附上如何设计的就更好了。

zhuangzhuangma · 发表于 2014-2-27 12:22

怎么用不了啊

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

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