[分享] 請問print screen的代碼如何寫?? (API運用)

Hsieh

我的要求是
打開檔案時即擷取一張屏幕圖
(截屏前須先將EXCEL視窗縮至最小以顯現要截屏的畫面)
並將其貼到A1
以後每小時擷取一張屏幕圖
(截屏前一樣須先將EXCEL視窗縮至最小
下張圖則貼至最適合之高度之行(緊接前一張圖)
例如第一張圖貼滿A1:K20
第二張貼到A21
不知如何達成
Emily_Li 回覆

1. Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal _
   
2. bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
3. Private Const VK_KEYUP = &H2
   
4. Private Const VK_SNAPSHOT = &H2C
   
5. Private Const VK_MENU = &H12
   
6. Dim ws As Worksheet
   
7. 
   
8. Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
   
9. (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
   
10. 
    
11. Global Const SW_MAXIMIZE = 3
    
12. Global Const SW_SHOWNORMAL = 1
    
13. Global Const SW_SHOWMINIMIZED = 2
    
14. 
    
15. 
    
16. Sub Print_Screen()
    
17. 
    
18. keybd_event VK_MENU, 0, 0, 0
    
19. DoEvents
    
20. 
    
21. keybd_event VK_SNAPSHOT, 0, 0, 0
    
22. DoEvents
    
23. 
    
24. keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
    
25. DoEvents
    
26. 
    
27. keybd_event VK_MENU, 0, VK_KEYUP, 0
    
28. DoEvents
    
29. Set ws = ActiveSheet
    
30. ws.Paste Destination:=ws.Range("A1")
    
31. DoEvents
    
32. End Sub

複製代碼

結果與要求有落差內  
這代碼是擷取excel的畫面
我的要求是
打開檔案時即擷取一張屏幕圖
(截屏前須先將EXCEL視窗縮至最小以顯現要截屏的畫面)
亦即是擷取另一個正於視窗最上層執行的程式畫面而不是擷取excel的畫面
並將其貼到A1
以後每小時擷取一張屏幕圖
(截屏前一樣須先將EXCEL視窗縮至最小)
不知能否改改
hsieh回覆:
依樣畫葫蘆
利用Emily_Li 前輩程式碼修改

1. Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal _
   
2. bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
3. Private Const VK_KEYUP = &H2
   
4. Private Const VK_SNAPSHOT = &H2C
   
5. Private Const VK_MENU = &H12
   
6. Dim ws As Worksheet
   
7. 
   
8. Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
   
9. (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
   
10. 
    
11. Global Const SW_MAXIMIZE = 3
    
12. Global Const SW_SHOWNORMAL = 1
    
13. Global Const SW_SHOWMINIMIZED = 2
    
14. 
    
15. 
    
16. Sub Print_Screen()
    
17. 
    
18. keybd_event VK_MENU, 0, 0, 0
    
19. DoEvents
    
20. Application.WindowState = xlMinimized
    
21. Application.Wait Now + TimeValue("00:00:05")
    
22. keybd_event VK_SNAPSHOT, 0, 0, 0
    
23. DoEvents
    
24. 
    
25. keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
    
26. DoEvents
    
27. 
    
28. keybd_event VK_MENU, 0, VK_KEYUP, 0
    
29. DoEvents
    
30. Application.WindowState = xlMaximized
    
31. Set ws = ActiveWorkbook.ActiveSheet
    
32. ws.Paste Destination:=ws.Range("A1")
    
33. DoEvents
    
34. Application.OnTime Now + TimeValue("01:00:00"), "Print_Screen"
    
35. End Sub

複製代碼