Create screenshot with macro

[snb]

This suffices in Excel:
Adapt the Irfanview path: "F:\Irfanview"
Adapt the save path: "G:\OF"

Sub M_snb()
   Application.CommandBars.ExecuteMso "ScreenClipping"
   ActiveSheet.Shapes(1).CopyPicture
   
   c00 = "F:\Irfanview\"
   Shell c00 & Dir(c00 & "i_view*.exe") & " /clippaste /convert=G:\OF\pict.png", 0
End Sub