標題: [發問] 人事資料照片，儲存、讀取、清除圖片 [打印本頁]

---

作者: kkooo15    時間: 2019-7-17 21:13     標題: 人事資料照片，儲存、讀取、清除圖片

1. Sub 插入圖片()
   
2. Call 刪除圖片
   
3. '1.資料夾與副檔名的指定
   
4. sPath = ActiveWorkbook.Path & "\photo\"
   
5. sFile = Dir(sPath & Range("B4") & Range("B7") & ".jpg")
   
6. 'ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg"
   
7.     '插入圖檔
   
8.     ActiveSheet.Shapes.AddPicture sPath & sFile, True, True, 423, 0, 143, 143
   
9. Range("A1").Select
   
10. End Sub
    
11. 
    
12. Sub 刪除圖片()
    
13.     With Sheets("人事輸出")
    
14.         .Pictures.Delete
    
15.     End With
    
16.     Range("A41").Select
    
17.     Range("A1").Select
    
18. 
    
19. End Sub

複製代碼

是什麼地方寫錯了?
[attach]31042[/attach]

---

作者: 准提部林    時間: 2019-7-18 10:18

Sheets("人事輸出") ???
Sheets("人事輸入") ???

---

作者: kkooo15    時間: 2019-7-18 10:51

回復 2# 准提部林

原來錯在那..謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)