求助 看看我的模块里面的代码咋回事怎么不能运行

zhjm1984

我想让输入姓名直接在照片栏出照片，插入了一个模块，但是好像不执行，还是代码有错误，求兄弟们帮忙看看

lhdcxz

worksheet_change这个是工作表事件。不能在模块里面。
可以用我的“自动形成连续单个证件或表格：自定义版式、自选项目、可有相片、可并排”
http://club.excelhome.net/thread-971751-1-1.html
这个帖子介绍的功能可以实现你的要求。也许能够解决更多问题。（新版在168楼）
不需要懂VBA和更改任何代码。除原始数据输入（或者拷贝）之外，全部是“傻瓜式操作”。
新人最好仔细看懂说明，再按照按钮操作顺序用我的模拟数据试用几次，
问题就可以解决了。

新人须知：（旧人略过）
1、我的附件都是在2003版本下单机调试通过的，没有在其他高版本上调试过（除开宏表函数之外，一般应该没有问题）。
2、我的压缩附件如果包括文件夹，不能直接打开运行。因为需要访问其他文件，否则会因为在当前文件夹里面找不到文件而出现错误（这也是一些人使用我的附件失败的原因）。
   应该解压到某个文件夹里面（其他在操作的时候要访问的文件也放到这个文件夹里面）解压后再运行。
  （建议新人把附件先“另存为”在桌面,即C:\Users\Administrator\Desktop，解压后再运行）
3、回复附件大多数含VBA代码。如果你没有操作过含VBA代码（也称为“宏”）的Excel文件，
   就先要在窗口工具栏的“工具”--“宏”--“安全性”选择“中（或者低）”。
   如果你的“宏、安全性选择的是“中”，打开运行的时候要“启用宏”。

zhjm1984

谁能帮我整一下？求求求

zhjm1984

Private Sub worksheet_change(ByVal target As Range)
If target.Address <> "$b$2" Then Exit Sub
On Error Resume Next
PicAddress = "H:\综采二队职工信息表\员工照片\"
With ActiveSheet
.Shapes("图片").Delete
picname = PicAdress & [b2] & ".jpg"
setp = .Pictures.Insert(picname)
p.ShapeRange.LockAspectRatio = msoFalse
p.Left = .[i2].Left
p.Top = .[i2].Top
p.Height = .[i2:i5].Height
p.Width = .[i2].Width
p.Name = "图片"
End With



End Sub
======================================
想让修改b2单元格，让根据b2的姓名自动插入照片
帮我看看上面的代码问题出在哪

zhjm1984

为什么没人回复我