VBA抓取屏幕

需要说明的是 关于"user32"下被调用函数的声明，私用常量的声明必需放在VBA代码的开头，否则代码不会运行。

抓取活动窗口的

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Const KEYEVENTF_KEYUP = &H2Private Const VK_SNAPSHOT = &H2CPrivate Const VK_MENU = &H12Sub AltPrintScreen()    keybd_event VK_MENU, 0, 0, 0    keybd_event VK_SNAPSHOT, 0, 0, 0    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0End Sub

下面是截取整个窗口的同样只在Word中用效

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Const VK_SNAPSHOT = &H2CSub PrintScreen()    keybd_event VK_SNAPSHOT, 1, 0, 0End Sub