Visual Basic VBA Excel (Print Screen)

[doug21]

Pessoal, boa tarde!

 

Tenho uma macro que roda em um ambiente de emulação e tira um print da tela, porém gostaria de salvar este print que foi feito com VBA (na área de transferência) e salvá-lo como arquivo, sem mexer com Paint ou algo do tipo.

 

Procurei em vários sites, mas não achei nenhum conteúdo. O formato vem como .png

 

Atenciosamente,

 

Douglas

[Basole]

Sem usar Api, uma opcao é atraves de Excel, exemplo:

 

Sub Salvar_PrintScr_como_Png()
Dim objGraf As Chart
Dim paint

Set objGraf = Charts.Add

  objGraf.Paste

   objGraf.Export Filename:=ThisWorkbook.Path & "\PrintScnSalvo.png", Filtername:="PNG"

        Excel.Windows.Application.DisplayAlerts = False
         objGraf.Delete
        Excel.Windows.Application.DisplayAlerts = True
  'abre o arquivo png
paint = VBA.Shell("c:\windows\system32\mspaint.exe " & ThisWorkbook.Path & "\PrintScnSalvo.png", vbMaximizedFocus)

End Sub