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

别咬兔子 · 发表于 2010-8-16 12:43

那个按钮是怎么做出来的?

hnwhy87 · 发表于 2010-9-6 16:50

cx4379861 · 发表于 2010-9-6 23:15

duguke1119 · 发表于 2010-9-15 17:09

呵呵，不过看楼主的那头像~确实很迷人啊~

ljx63426 · 发表于 2010-9-18 21:58

good!!!!

ppppp · 发表于 2010-9-19 16:18

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

baohugengdi · 发表于 2010-11-9 16:21

下个给同事用，谢谢了

lwzhong1002 · 发表于 2010-11-9 21:25

不知道怎么用，楼主指教下那个图片怎么插入

枫桥夜泊lwb · 发表于 2010-11-13 14:57

这个下载有用

doitbest · 发表于 2010-11-13 16:03

人事管理人员肯定如获至宝，但可惜多数人不是会员，还在苦苦摸索

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

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