How to Save Screenshot taken, to specific folder with specific name ?

[ajay1111]

I found the code to take screenshot from the screen but could not figure out the way to save that screenshot to specific folder with specific name. What could be the way to achieve it ?
For Eg : Save the screenshot taken to "D:\Picture\Screenshot\First.jpg"

Private Declare PtrSafe 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

'Capture screen
Sub PrintScreen()
    keybd_event VK_SNAPSHOT, 1, 0, 0
    keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0  'Key Up
    'ActiveSheet.Paste
End Sub

 

[DanteAmor]

Try:

Sub Save_Screenshot()
  Dim sh As Worksheet
  Dim archivo As String
  '
  archivo = "C:\ejemplo\pantalla.jpeg"    'folder and file name
  Application.SendKeys "(%{1068})"
  DoEvents
  Set sh = Sheets.Add
  DoEvents
  sh.Shapes.AddChart
  With sh.ChartObjects(1)
      .Height = 500
      .Width = 1000
      .Chart.Paste
      .Chart.Export archivo
  End With
  Application.DisplayAlerts = False
  sh.Delete
  MsgBox "screenshot saved"
End Sub

Example: