Bom Dia Pessoal,
estou precisando acionar as teclas Alt+PrintScreen via código VBA no momento de execução de um dos meus formulários pos terei de colar esta imagem em uma pagina do Word, Alguem poderia me ajudar?
Obrigado.
|
Bom Dia Pessoal,
estou precisando acionar as teclas Alt+PrintScreen via código VBA no momento de execução de um dos meus formulários pos terei de colar esta imagem em uma pagina do Word, Alguem poderia me ajudar?
Obrigado.
Na altura desejada para a captura do Ecran, carregue em ALT + PrintScreen e directamento no word onde quer colocar a captura CRT + V (Colar).
Teclas Alt + PrintScreen - copia para o clipboard o formulário activo
Tecla PrintScreen (sozinha) - captura todo o ecra do monitor
Cumprimentos
Bom dia, Felipe!
estou tentando capturar a tela mas atraves do codigo em vba, as teclas para capturar Alt + PrintScreen eu sei como utilizar, mas como devo programar para que atraves de um buttom eu consiga capturar a tela, teria como?
Obrigado.
Olá Marcio,
Não tinha percebido bem o seu pedido, agora já percebi. Vamos ver se consigo ajudá-lo:
Exsite a possibilidade em vba de usar o SENDKEYS (funciona com todas as teclas do teclado:
SendKeys "NOME DA TECLA"
Printcreen = {PRTSC}
ALT = &
depois de ter testado no autocad o printcreen não funciona directamente, fui a procura de uma possivel solução e encontrei o seguinte:
PRINTSCREEN
Option Explicit
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 = &H2C
Sub PrintScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub
ALTPRINTSCREEN
Option Explicit
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 = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Sub 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, 0
End Sub
Funciona perfeitamente, depois é só colocar no Word ou noutro programa de imagem para colar a captura do ecran
Espero que isto ajude
Felipe, Muito Obrigado!
funcionou perfeitamente.
Ainda bem que serviu...
Cumprimentos