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