excel - 在Excel中粘贴到Powerpoint中,使用 VBA

  显示原文与译文双语对照的内容

我正在尝试从我在excel中连接的应用程序中捕获一个屏幕截图。 我想把屏幕截图粘贴到powerpoint中。 不过,我想让每一个屏幕都在一张新幻灯片上拍摄。

将Pptapp作为新的PowerPoint.Application

设置为 Pptapp.Presentations.Add =

将slidev作为 PowerPoint.Slide

'( 屏幕截图,不需要代码帮助)

'需要帮助创建新幻灯片需要帮助粘贴新幻灯片的屏幕截图

我希望这个能在下面的项目中循环

'

'

到( 结束时间结束)

屏幕截图

新幻灯片

粘贴到新幻灯片上

循环


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 

我需要做。选择函数以确保幻灯片得到了粘贴。

原作者:
...