软件:Excel
版本:2013
在网络上找到了一段可以自动插入图片的宏,并修改自己需要的样子:
Sub 插入图片()
Dim p As Shape
For Each p In ActiveSheet.Shapes
p.Delete
Next
' 以上是删除照片
Range("b2:b3").Select
'这是点选放大头照的储存格
x = Selection.Width
y = Selection.Height
'这是取得放大头照的储存格的长宽
AA = [A2]
z1 = "B:\test\" & AA & ".jpg"
'在此可修改大头照档案路径
'Z1会等于 B:\test\员工编号.jpg
ActiveSheet.Pictures.Insert(z1).Select
'插入大头照
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Height = y
Selection.Width = x
Selection.ShapeRange.IncrementLeft 1
Selection.ShapeRange.IncrementTop 1
'设定大头照等于储存格长宽
Range("C2:C3").Select
'这是点选放身份证的储存格
x = Selection.Width
y = Selection.Height
'这是取得放身份证的储存格的长宽
BB = [A3]
z2 = "B:\test\" & BB & ".jpg"
'在此可修改身份证档案路径
'Z2会等于 B:\test\身份证字号.jpg
ActiveSheet.Pictures.Insert(z2).Select
'插入身份证
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Height = y
Selection.Width = x
Selection.ShapeRange.IncrementLeft 1
Selection.ShapeRange.IncrementTop 1
'设定身份证等于储存格长宽
End Sub
目前我是在A2和A3输入档名,“再”执行宏,便可以插入图片,
可是我需要的是──一输入档名按下Enter后,便会插入
我该如何修改这个宏呢?
麻烦指导一下,感谢!