軟體: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後，便會插入
我該如何修改這個巨集呢？
麻煩指導一下，感謝！