Imprime la pantalla completa y guárdala como jpeg

La siguiente macro captura la imagen completa de la pantalla y la guarda como archivo jpeg en la carpeta y el nombre que desees. 

Sub Guardar_Pantalla()

  'Por.Dante Amor
  Dim sh As Worksheet
  Dim archivo As String
  '
  archivo = "C:\ejemplo\pantalla.jpeg"
  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 "Se guardó la pantalla"
End Sub