標題: 為什麼在存照片的時候會一直轉不停? [打印本頁]

---

作者: kkooo15    時間: 2019-7-12 19:47     標題: 為什麼在存照片的時候會一直轉不停?

本帖最後由 kkooo15 於 2019-7-12 19:49 編輯

二個單獨使用沒問題
為什麼合併一起使用就會轉不停?

1. Option Explicit
   
2. Sub 存照片()
   
3.     Dim Rng As Range
   
4.     Dim fullName As String
   
5.     fullName = ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg"
   
6.     Set Rng = Range("Q1:V6") '指定的範圍
   
7.     'Set Rng = Selection      '滑鼠選定的範圍
   
8.     Rng.CopyPicture
   
9.     With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '新增 圖表
   
10.         .Chart.Paste                                           '貼上 圖片
    
11.         .Chart.Export fullName                  '匯出 圖片
    
12.         .Delete                                                '刪除 圖表
    
13.     End With
    
14. 
    
15. End Sub
    
16. 
    
17. Sub 照片存檔()
    
18. 'ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg"
    
19. '檢查檔名是否輸入有誤
    
20. If Sheets("人事輸入").Range("B7") = "" Or Sheets("人事輸入").Range("B4") = "" Then
    
21.    MsgBox ("資料輸入不全。")
    
22.    Exit Sub
    
23. End If
    
24. '檢查檔案是否存在
    
25. Dim fs As Object
    
26. Set fs = CreateObject("Scripting.FileSystemObject")
    
27. If fs.FileExists(ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg") Then
    
28.     MsgBox (Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg照片已存在，請勿重複存照片。")
    
29.     '檔案存在
    
30. Else
    
31.     '檔案不存在
    
32.     Call 存照片
    
33. 
    
34.     MsgBox ("照片已存檔。")
    
35. End If
    
36. End Sub

複製代碼

---

作者: kkooo15    時間: 2019-7-13 14:19

回復 1# kkooo15

[attach]31027[/attach]

忘了附檔

---

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