using VBA in Excel to paste into Powerpoint

Question

I am attempting to capture a screenshot from an application I've connected to with VBA in Excel. I want to take a screenshot and paste it into PowerPoint. However, I want to have each screen shot on a new slide.

Dim Pptapp As New PowerPoint.Application
Set pres = Pptapp.Presentations.Add
Dim slidev As PowerPoint.Slide
'(take Screenshot, Don't need code help here)

'need help creating new slide
'need help pasting screenshot on new slide

'I want this to be able to loop through the below items

do until (the end of time)   
    Screenshot    
    new slide    
    paste on new slide     
loop

Dim Pptapp As New PowerPoint.Application
Set pres = Pptapp.Presentations.Add
Dim slidev As PowerPoint.Slide
PrintTheScreen ' function added else where 
Set slidev = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
slidev.Select
PasteTheScreen ' function added else where

I needed to do the .Select function to make sure the slide was getting the paste.

Steve Short · Accepted Answer · 2015-04-02 22:16:19Z

2

Dim Pptapp As New PowerPoint.Application
Set pres = Pptapp.Presentations.Add
Dim slidev As PowerPoint.Slide
PrintTheScreen ' function added else where 
Set slidev = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
slidev.Select
PasteTheScreen ' function added else where

I needed to do the .select function to make sure the slide was getting the paste.

answered Apr 2, 2015 at 22:16

Steve Short

951 gold badge1 silver badge13 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

using VBA in Excel to paste into Powerpoint

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related