[發問] 輸出圖片檔,執行階段錯誤1004

t8899

輸出圖片檔,執行階段錯誤1004   Book1.zip (104.1 KB)

下載次數: 6

2019-2-22 21:52

excel 2003
win7

下載 (15.69 KB)

2019-2-22 21:50

Joforn

1. #If VBA7 Then
   
2.   Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
   
3. #Else
   
4.   Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
   
5. #End If
   
6. 
   
7. Private Sub CommandButton4_Click()
   
8. Dim abc As Range
   
9. Dim f As Range
   
10. Dim rngCopy As Range
    
11. 
    
12.    Set f = Range("a1")
    
13.    Set abc = Range("o2:o1000").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, LookAt:=xlWhole)
    
14.       
    
15.   Set rngCopy = Range(f, abc.Offset(1, 2))
    
16.   rngCopy.CopyPicture Format:=xlBitmap
    
17.   With Sheet2.ChartObjects.Add(0, 0, rngCopy.Width, rngCopy.Height).Chart
    
18.      DoEvents
    
19.      WaitTimes 200
    
20.      .Paste
    
21.      ' .Export Filename:="r:\temp\ABC.JPG", FilterName:="JPG"
    
22.      .Export Filename:="c:\1.JPG", FilterName:="JPG"
    
23.      .Parent.Delete
    
24.    End With
    
25. End Sub
    
26. 
    
27. Private Sub WaitTimes(ByVal lngTime As Long)
    
28.   Do While lngTime > 0
    
29.     DoEvents
    
30.     Sleep 20
    
31.     lngTime = lngTime - 20
    
32.   Loop
    
33. End Sub

複製代碼