返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-5-7 15:21 | 只看該作者

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

我的要求是
打開檔案時即擷取一張屏幕圖
(截屏前須先將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

  8. Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
  9. (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

  11. Global Const SW_MAXIMIZE = 3
  12. Global Const SW_SHOWNORMAL = 1
  13. Global Const SW_SHOWMINIMIZED = 2


  16. Sub Print_Screen()

  18. keybd_event VK_MENU, 0, 0, 0
  19. DoEvents

  21. keybd_event VK_SNAPSHOT, 0, 0, 0
  22. DoEvents

  24. keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
  25. DoEvents

  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

  8. Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
  9. (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

  11. Global Const SW_MAXIMIZE = 3
  12. Global Const SW_SHOWNORMAL = 1
  13. Global Const SW_SHOWMINIMIZED = 2


  16. Sub Print_Screen()

  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

  25. keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
  26. DoEvents

  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
複製代碼
收藏 分享
學海無涯_不恥下問

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題