一、学友问题描述:
如何使用代码为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:幻灯片板式