[算表] 如何讓Excel自動插入圖片的巨集更自動？

[jbs2000 (咖啡貓)]

軟體: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後，便會插入

我該如何修改這個巨集呢？

麻煩指導一下，感謝！

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 120.116.11.110
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1510321317.A.862.html
→ soyoso: worksheet_change觸發，變數AA、BB取得觸發儲存格target的
→ soyoso: 內容
→ jbs2000: 好，我先來研究一下觸發怎麼做
→ soyoso: 限縮觸發範圍可判斷，range.row和range.column、
→ soyoso: range.address或intersect
→ jbs2000: 請問這個觸發，是插入在哪個部分，或是重新一個sub呢？
→ jbs2000: 我知道我問得很蠢，但我對巨集真的不太有辦法...
→ soyoso: 原po之前問過類似問題，回覆上和本篇回文差不多，可參考
→ soyoso: #1NcsWhvQ