用VB创建一个PPT文件,出错

Question

用VB创建一个PPT文件,出错Private Sub Command1_Click()
Dim pptob As Object
Dim pptsl As Object
Dim ppApp As Object
Dim lngLastSlideAdded As Long
CommonDialog1.Filter = "文本文档(*.doc)　*.doc　所有文件(*.*)　*.*"
CommonDialog1.ShowSave
filename = CommonDialog1.filename
Set pptob = CreateObject("PowerPoint.Application")
Set ppApp = pptob.Presentations.Add(msoFalse)
Set pptsl = ppApp.Slides.Add(ppApp.Slides.Count + 1, ppLayoutBlank)
lngLastSlideAdded = pptsl.SlideID
ppApp.SaveAs filename
Set ppApp = Nothing
Set pptsl = Nothing
Set pptob = Nothing
End Sub
这是整个过程,中间Set pptsl = ppApp.Slides.Add(ppApp.Slides.Count + 1, ppLayoutBlank)哪错了,??
这句话里的ppLayoutBlank参数是什么?
调试时他的值为空,,是为什么???

Answer 1

看帮助：Add 方法（Slides 集合对象）
                创建一张新的幻灯片，并添加到指定演示文稿中的幻灯片集合。返回一个代表新幻灯片的 Slide 对象。语法expression.Add(Index, Layout)expression   必选。该表达式返回一个 Slides 集合。Index   必选。Long 类型。指定新幻灯片将具有的在 Slides 集合中的检索号。该值不能超过现有幻灯片数 + 1。Layout   必选。Long 类型。可为以下 PpSlideLayout 常数之一：ppLayoutBlank 
ppLayoutChartppLayoutChartAndTextppLayoutClipartAndTextppLayoutClipArtAndVerticalTextppLayoutFourObjectsppLayoutLargeObjectppLayoutMediaClipAndTextppLayoutObjectppLayoutObjectAndTextppLayoutObjectOverTextppLayoutOrgchartppLayoutTableppLayoutText
 ppLayoutTextAndChart 
ppLayoutTextAndClipartppLayoutTextAndMediaClipppLayoutTextAndObjectppLayoutTextAndTwoObjectsppLayoutTextOverObjectppLayoutTitleppLayoutTitleOnlyppLayoutTwoColumnTextppLayoutTwoObjectsAndTextppLayoutTwoObjectsOverTextppLayoutVerticalTextppLayoutVerticalTitleAndTextppLayoutVerticalTitleAndTextOverChart
 
说明要改变现有幻灯片的版式，请使用 Layout 属性。
Add 方法（Slides 集合对象）示例本示例在活动演示文稿的开始处添加一张包含标题占位符的幻灯片。ActivePresentation.Slides.Add 1, ppLayoutTitleOnly
本示例在活动演示文稿的末尾添加一张空白幻灯片。With ActivePresentation.Slides
    .Add .Count + 1, ppLayoutBlank
End With