在创建文本框时出错，~~~

Question

Private Sub Command1_Click()
Dim MyPptApp As New PowerPoint.Application
MyPptApp.Visible = True
MyPptApp.Presentations.Add
With MyPptApp.ActivePresentation
.Slides.Add 1, ppLayoutText.Slides(1).Shapes(1).TextFrame.TextRange.Text = "VB研究小站簡單的報表"
.Slides(1).Shapes(1).Top = 15
.Slides(1).Shapes(2).TextFrame.TextRange.Text = "Power Point與其他的MS Office軟體一樣，也提供了Automation的能力，所以我們可以透過VB來把計算好的資料輸往Power Point即時產生報表"
.Slides(1).Shapes(2).TextFrame.TextRange.Font.Bold = msoTrue
.Slides(1).Shapes(2).TextFrame.TextRange.Font.Color = RGB(0, 0, 128)
.Slides(1).Shapes(2).TextFrame.TextRange.Font.Name = "華康勘亭流"
.Slides(1).Shapes(2).TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft.Slides(1).Shapes(2).Top = 100.Slides(1).Shapes(2).TextFrame.TextRange.Font.Size = 48
.Slides.Add 2, ppLayoutTextSendKeys "{pgdn}"
.Slides(2).Shapes(1).TextFrame.TextRange.Text = "VB研究小站簡單的報表"
.Slides(2).Shapes(2).TextFrame.TextRange.Text = "1)啟動Power Point" & vbNewLine & "2)插入新的Presentation(簡報)" & vbNewLine & "3)插入新的Slide(報表)" & vbNewLine & "4)分別控制Slide內的Shape(圖層)"
.SlideShowSettings.Run
End With
End Sub
这条代码应该没什么问题（这是我看别人的）
可是提示是add失败
在机器上运行一下就知道了那位大哥能告诉我，我那里错了？

Answer 1

这是我用vb在ppt中创建ppt的文本框时的整个过程
为什么会出错呢?