[算表] 如何讓Excel自動插入圖片的巨集更自動?
軟體: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
→
11/10 21:46,
6年前
, 1F
11/10 21:46, 1F
→
11/10 21:46,
6年前
, 2F
11/10 21:46, 2F
→
11/10 21:56,
6年前
, 3F
11/10 21:56, 3F
→
11/10 22:00,
6年前
, 4F
11/10 22:00, 4F
→
11/10 22:00,
6年前
, 5F
11/10 22:00, 5F
→
11/10 22:03,
6年前
, 6F
11/10 22:03, 6F
→
11/10 22:04,
6年前
, 7F
11/10 22:04, 7F
→
11/10 22:30,
6年前
, 8F
11/10 22:30, 8F
→
11/10 22:30,
6年前
, 9F
11/10 22:30, 9F