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