為什麼在存照片的時候會一直轉不停?

　暱稱: 新手

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-7-12 19:47 | 只看該作者

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

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

Option Explicit
Sub 存照片()
Dim Rng As Range
Dim fullName As String
fullName = ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg"
Set Rng = Range("Q1:V6") '指定的範圍
'Set Rng = Selection '滑鼠選定的範圍
Rng.CopyPicture
With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height) '新增圖表
.Chart.Paste '貼上圖片
.Chart.Export fullName '匯出圖片
.Delete '刪除圖表
End With
End Sub
Sub 照片存檔()
'ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg"
'檢查檔名是否輸入有誤
If Sheets("人事輸入").Range("B7") = "" Or Sheets("人事輸入").Range("B4") = "" Then
MsgBox ("資料輸入不全。")
Exit Sub
End If
'檢查檔案是否存在
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(ActiveWorkbook.Path & "\photo\" & Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg") Then
MsgBox (Sheets("人事輸入").Range("B4") & Sheets("人事輸入").Range("B7") & ".jpg照片已存在，請勿重複存照片。")
'檔案存在
Else
'檔案不存在
Call 存照片
MsgBox ("照片已存檔。")
End If
End Sub