作者jbs2000 (咖啡貓)
看板Office
標題[算表] 如何讓Excel自動插入圖片的巨集更自動？
時間Fri Nov 10 21:41:54 2017
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1510321317.A.862.html
1F：→ soyoso: worksheet_change觸發，變數AA、BB取得觸發儲存格target的 11/10 21:46
2F：→ soyoso: 內容 11/10 21:46
3F：→ jbs2000: 好，我先來研究一下觸發怎麼做 11/10 21:56
4F：→ soyoso: 限縮觸發範圍可判斷，range.row和range.column、 11/10 22:00
5F：→ soyoso: range.address或intersect 11/10 22:00
6F：→ jbs2000: 請問這個觸發，是插入在哪個部分，或是重新一個sub呢？ 11/10 22:03
7F：→ jbs2000: 我知道我問得很蠢，但我對巨集真的不太有辦法... 11/10 22:04
8F：→ soyoso: 原po之前問過類似問題，回覆上和本篇回文差不多，可參考 11/10 22:30