I have slightly modified the mentioned code to do the following.
Loop thru all Sheets
Ask for use Input Range to Capture the Screenshot
Save the Sheetname.jpg at C:\Temp folder. File name is Sheetname with .jpg extension
Do note that this won't capture any embedded objects e.g. an Inserted Shapes or a Picture etc. It will only capture the screenshot of Range of Cells you input for each and every sheet. Moreover no strict validations are in place. If you just cancel the Input, code will result into a run time error.
The code is as follows. Do check if this meets your requirement. Original Code is at this SU Post
Sub exportpic()
Dim WS As Worksheet
Dim rgExp As Range
Dim CH As ChartObject
For Each WS In ThisWorkbook.Sheets
WS.Activate
Set rgExp = Application.InputBox(prompt:="Select Input Range", Type:=8)
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set CH = WS.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, Width:=rgExp.Width, Height:=rgExp.Height)
CH.Chart.ChartArea.Select
CH.Chart.Paste
CH.Chart.Export "C:\Temp\" & WS.Name & ".jpg"
CH.Delete
Next WS
End Sub