Screen capture and save using VBA Excel (Adding to existing Macro)

[Loobc]

Afternoon Everyone,

Just looking for a little help; I have an existing macro that works perfectly for my needs, however I'm looking to add a screen capture functionality to it.

Ideally it would capture the window it is in and save it as a jpg, it would name the file using other data that in that Excel file e.g cell 1, cell 2 and cell 3.

Any ideas would be greatly received, VBA isn't my thing but I'm trying to learn it slowly!

Many Thanks,
L

 

[Yongle]

welcome to MrExcel

This works for me
Amend to suit your requirements

    Sub PasteScreenShot()
        Dim x, xChartArea, shp
        ActiveSheet.Activate
        ActiveWindow.VisibleRange.Cells(1, 1).Select
        Application.SendKeys "({1068})"       
        ActiveSheet.Paste
        Set shp = ActiveSheet.Shapes(Selection.Name)
        shp.CopyPicture
        Set x = ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height)
        Set xChartArea = x.Chart
        x.Activate
        With xChartArea
            .ChartArea.Select
            .Paste
            .Export ("C:\Test\subfolderArea\" & "ScreenPicX" & ".jpg")
        End With
        x.Delete
        shp.Delete
    End Sub