VBA capturing screenshot

[green99]

Need to get screenshots of powerpoints slides and paste it in excel using vba macro.
Can anyone help in this regard?

[mancubus]

?

Sub vbax_62300_paste_PPSlides_as_pix_to_same_sheet()
    
    Dim i As Long
    
    ActiveSheet.Cells(1).Select

    With CreateObject("Powerpoint.Application")
        With .Presentations("MyOpenAndActivePresentationNameHere.pptx")
            For i = 1 To .Slides.Count
                .Slides(i).Copy
                ActiveSheet.Paste
                ActiveCell.Offset(20).Select
            Next i
        End With
    End With
    
End Sub

[J FelixBosco]

If below code is useful please change the thread heading to "Copy powerpoint slide to Excel sheet" or something similar.

Sub gg()
    Dim pptApp As PowerPoint.Application
    
    Set pptApp = New PowerPoint.Application
    
    pptApp.Presentations.Open ("d:\presentation1.pptx") 'Note: Change file path.
    pptApp.ActivePresentation.Slides(1).Copy  'copy slide instead of capture. use your own slide number
    
    
    
    
     ActiveSheet.Paste 'paste from clipboard
     pptApp.Quit
 
End Sub