在Excel中使用VBA粘贴到Powerpoint中
我正在尝试从我用Excel中的VBA连接到的应用程序中捕获屏幕截图。我想截图并粘贴到PowerPoint中。但是,我希望每个屏幕截图都在一张新幻灯片上在Excel中使用VBA粘贴到Powerpoint中,vba,excel,powerpoint,screenshot,Vba,Excel,Powerpoint,Screenshot,我正在尝试从我用Excel中的VBA连接到的应用程序中捕获屏幕截图。我想截图并粘贴到PowerPoint中。但是,我希望每个屏幕截图都在一张新幻灯片上 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
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
我需要执行。选择功能以确保幻灯片得到粘贴
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
我需要执行.select功能以确保幻灯片得到粘贴
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