Need to take screenshot of 2 sheets and make 1 jpeg out of both

**ABourdages** · 04-10-2024, 01:02 PM

Hello all,

I have made an excel file with 2 separate sheets in it. I need make a button which takes a screenshot on sheet one with the range A1 to K31 and on the second sheet from B2 to I43 and combines them into a single JPEG image saved on my desktop (Preferably with sheet1 image on the left).

I have no idea how to do something like this and any help would be greatly appreaciated.

Thanks,

ABourdages

**CK76** · 04-10-2024, 02:24 PM

Use camera tool.
File -> Options -> Quick Access Tool Bar. Choose commands from "All commands". Add "Camera".
Add new blank sheet.

Select range you want to make into image. Click on camera tool.
In blank sheet. Click where you want image to show.
Do the same for 2nd range.

Now you can adjust position of the image. Camera tool image will update if you update source data.
So once this is set up. No need to redo above steps.

Now just use screen capture or any other tool to take image capture of the range.

If this isn't what you want, it would be helpful if you upload how resulting image should look like.

**Danny44** · 04-10-2024, 07:51 PM

Hi,
This Macro copy both ranges from Sheet1 and Sheet2 to a third Sheet (Image)
then save the grouped shape as jpg.

Sub Macro2()
Application.CutCopyMode = False
Application.ScreenUpdating = True '---- keep this

    Sheets("Hoja1").Range("A1:K31").Copy
    Sheets("Image").Select
    Range("A1").Select
    MsgBox "Pasting Image 1"  '---- Do not remove
    Sheets("Image").Pictures.Paste.Select
    pic1 = Selection.Name
    Sheets("Hoja2").Range("B2:I43").Copy
    Sheets("Image").Select
    Range("L1").Select
    MsgBox "Pasting Image 2" '---- Do not remove
    Sheets("Image").Pictures.Paste.Select
    pic2 = Selection.Name
    Sheets("Image").Shapes.Range(Array(pic1)).Select
    Sheets("Image").Shapes.Range(Array(pic2, pic1)).Select
    Selection.ShapeRange.Group.Select
    SaveShapeAsPicture "myimage.jpg"
End Sub