VBA Word - Capturando a tela - Screen Capture

| Blog Office VBA | Blog Excel | Blog Access |

Consigo capturar uma tela e cola-lá no MS Word? Sim, utilize o código a seguir:

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post. 

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 ScreenCapture()

 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

Sub Screen_Capture_VBA()

 Dim Sec3 As Date, PasteYes As Integer

 MsgBox "Aguarde 23 segundos e clique em OK " & _

 "A janela ativa será copiada para o seu Clipboard."

 Sec3 = DateAdd ("s", 2, Now)

 Do Until Now > Sec3

 DoEvents

 Loop

 ScreenCapture

 PasteYes = MsgBox("Clique OK para colar a imagem.", vbOKCancel)

 If PasteYes = 1 Then

 Selection.Paste

 End If

End Sub

Tags: VBA, Word, capture, capturar, image, imagem, screen, print screen, LIB, API, Window

Inspiration: