为什么我无法快捷键截屏？

ehomenhn2017 · 发表于 2022-1-3 14:00

用了sendkeys"%{PRTSC}" 没有出现截屏动作

vitrel · 发表于 2022-1-3 14:30

楼主，您好！
我刚才也试了一下，确实不行，您改用我这个吧。

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Function KeyJp(Optional ByVal JpMode% = 0) As IPictureDisp
Call keybd_event(vbKeySnapshot, JpMode, 0, 0) '
DoEvents
End Function
Sub Test1()
KeyJp '全屏截图
End Sub
Sub Test2()
KeyJp (1) '截取当前窗口，相当于Alt+PrintScreen
End Sub

复制代码

lss001 · 发表于 2022-1-3 17:32

本帖最后由 lss001 于 2022-2-7 12:50 编辑

Sub EXCEL截屏快捷键()
Set ws = CreateObject("Wscript.Shell")
ws.SendKeys"%NSCC"
End Sub

ehomenhn2017 · 发表于 2022-1-3 19:04

vitrel 发表于 2022-1-3 14:30
楼主，您好！
我刚才也试了一下，确实不行，您改用我这个吧。

感谢感谢，祝你2022年身体健康，财源广进，万事如意

ehomenhn2017 · 发表于 2022-1-3 20:20

vitrel 发表于 2022-1-3 14:30
楼主，您好！
我刚才也试了一下，确实不行，您改用我这个吧。

keybd_event的四个参数第一个我知道，其他三个是代表什么？

ehomenhn2017 · 发表于 2022-1-3 20:22

lss001 发表于 2022-1-3 17:32
Sub EXCEL截屏快捷键() 'ws防止关闭NumLock
Set ws = CreateObject("Wscript.Shell")
ws.SendKey ...

没明白意思不行啊

vitrel · 发表于 2022-1-4 07:47

ehomenhn2017 发表于 2022-1-3 20:20
keybd_event的四个参数第一个我知道，其他三个是代表什么？

网友，您好！
其实我也没深入研究过这个keybd_event，就不在这里装了，
就等待网友们进一步解答吧，

，见笑了！

ehomenhn2017 · 发表于 2022-1-4 16:58

vitrel 发表于 2022-1-4 07:47
网友，您好！
其实我也没深入研究过这个keybd_event，就不在这里装了，
就等待网友们进一步解答吧，[em ...

我把jpmode换成0也是效果一样就是这个不懂

adfadf12 · 发表于 2024-4-3 16:05

不错，分享了

tanglf188 · 发表于 2024-4-3 17:16

win10可以考虑自带的截图工具，调用代码如下：
Shell "cmd.exe /C SnippingTool.exe", vbNormalFocus

		自动登录	找回密码
密码			免费注册

[求助] 为什么我无法快捷键截屏？