返回列表 上一主題 發帖

[發問] 人事資料照片，儲存、讀取、清除圖片

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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

  12. Sub 刪除圖片()
  13.     With Sheets("人事輸出")
  14.         .Pictures.Delete
  15.     End With
  16.     Range("A41").Select
  17.     Range("A1").Select

  19. End Sub
複製代碼
是什麼地方寫錯了?
TEST.rar (68.92 KB)
收藏 分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2024-3-28 
3#
發表於 2019-7-18 10:51 | 只看該作者
回復 2# 准提部林

原來錯在那..謝謝
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
2#
發表於 2019-7-18 10:18 | 只看該作者
Sheets("人事輸出") ???
Sheets("人事輸入") ???

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題