创建一个简单的演示文稿

Excel 的宏录制器可以记录操作并生成相应的 VBA 代码，但是自 PowerPoint 2007 起，Microsoft 从程序中删除了此功能。我们就从创建一个简单的演示文稿开始。

创建一个简单的演示文稿

本示例生成一个包含9张幻灯片的新演示文稿，每张幻灯片版式为标题和文本，每张幻灯片包含两个形状，即幻灯片标题和文本列表。

Sub AddSlides()
    Dim Pre As Presentation, sld As Slide, i As Integer, j As Integer
    Set Pre = Presentations.Add(msoTrue)    '在可视窗口中创建演示文稿。
    j = 1
    
    '循环增加9张幻灯片
    For i = 1 To 9
    
        '增加新幻灯片，版式为标题和文本
        Set sld = Pre.Slides.Add(Index:=Pre.Slides.Count + 1, Layout:=ppLayoutText)
        
        '幻灯片标题
        sld.Shapes(1).TextFrame.TextRange = "幻灯片标题 " & i
        
        '幻灯片文本
        sld.Shapes(2).TextFrame.TextRange = "文本 " & CStr(j) & vbNewLine & _
            "文本 " & CStr(j + 1) & vbNewLine & "文本 " & CStr(j + 2) & vbNewLine
        
        j = j + 3
    Next
End Sub

运行结果如下：

语法参考

Presentations.Add 方法

PowerPoint Slide.Layout 属性

PowerPoint TextFrame.TextRange 属性