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 时几乎没有充分的理由选择任何内容。 假设幻灯片 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).Cut

ActivePresentation.Slides.Paste -1

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