在Excel中使用VBA粘贴到Powerpoint中

我试图捕捉从Excel中与VBA连接的应用程序截图。 我想拍摄屏幕截图并粘贴到PowerPoint中。 不过，我希望每个屏幕都在新的幻灯片上。

昏暗的Pptapp作为新的PowerPoint.Application

设置pres = Pptapp.Presentations.Add

昏暗slidev为PowerPoint.Slide

'（截图，这里不需要代码帮助）

“需要帮助创build新幻灯片”需要帮助粘贴新幻灯片上的截图

我希望这能够循环通过下面的项目

“

“

（直到时间结束）

截图

新的幻灯片

粘贴在新幻灯片上

循环

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 

我需要做的.selectfunction，以确保幻灯片获取粘贴。

Answer 1

 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 

我需要做的.selectfunction，以确保幻灯片获取粘贴。