Excel VBA 在 PowerPoint 中复制幻灯片

Question

我正在将内容从 Excel 导出到 PowerPoint。我的 PowerPoint 演示文稿中有一张空白格式的幻灯片，我每次都需要复制它并在上面写字。问题是我的代码在当前幻灯片之前添加了一张新幻灯片，这在将内容写入确切的幻灯片编号时造成了问题。我希望在当前幻灯片之后添加新幻灯片。

        Set pptSlide = oPPTApp.ActivePresentation.Slides(1).Duplicate.Item(1)
        oPPTFile.Slides(SlideNum).Select
        Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table 1")

有什么建议吗？

Answer 1

在自动执行 PPT 时，几乎没有理由 select 做任何事情。假设幻灯片 1 上有一个名为 Table 1 的形状，这应该可以满足您的要求：

Dim oSl As Slide
Dim oSh As Shape

Set oSl = ActivePresentation.Slides(1).Duplicate()(1)
Set oSh = oSl.Shapes("Table 1")

Answer 2

ActivePresentation.Slides.Range(1).剪切

ActivePresentation.Slides.Paste-1

此函数会将第一张幻灯片移到最后一张。所以按理说你可以想出一个公式来跟踪你想要插入幻灯片的位置。如果您需要知道范围内有多少张幻灯片 ActivePresentation.Slides.Range.计数

Excel VBA 在 PowerPoint 中复制幻灯片

Excel VBA Duplicating a Slide in PowerPoint

excel

powerpoint

vba