使用Slides.Add方法添加幻灯片

时　间:2021-08-08 09:04:15
作　者:某.强人   ID：73257  城市：长沙
摘　要:为PPT添加幻灯片。
正　文:

一、学友问题描述：

      如何使用代码为PPT添加幻灯片呢？

二、解决方法：

      使用Slides.Add方法可以实现。具体代码如下：

Private Sub Command0_Click()
Set oPPT = CreateObject("PowerPoint.Application")
    oPPT.Visible = True
    oPPT.Presentations.Open "C:\Users\ZhiQiang.Li\Desktop\Arduino\程序设计基础PPT\IO口的高级应用.pptx"   
    oPPT.Presentations("程序设计基础PPT\IO口的高级应用.pptx").Slides.Add 5, 1 

 ' 添加一张索引为5的"主题板式"（1）幻灯片
End Sub

图   示:

方   法:

      Expression.Slides.Add Index,pCustomLayout

      Index:要添加的幻灯片的索引。

      pCustomLayout:幻灯片板式