Windows screenshot with VBA

[Radoslaw Poprawski]

Hi
I found this article here:

VBA Print screen on dual screen help. I need just the left screen shot. Thanks!

Hi Guys, I was wondering if someone can help finish / make a vba code to take a print screen of just the left screen on a dual monitor? Right now I have it so it takes a print screen of the active screen but this does not work when I try and use a keyboard shortcut while in excel. Below is...

www.mrexcel.com

However I do not see the code for application hearts.

My question is this:
How do I Take a screenshot from just 1 sccreen.
How Do i name my screens (monitors?)

Is this code up to date since its from 2013?

I am working on 2 monitors and i need full screen picture of just 1 of them.

 

[DanteAmor]

Check if the following is what you need:

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:

 

[Radoslaw Poprawski]

Actualy, its close but not quite,
I need to make full screen 1 screenshot with full size,
I work on 2 monitors So I need to take full screenshot of just 1