VBA代码 PPT更换母版

在VBA (Visual Basic for Applications) 中，你可以编写宏来自动更改PowerPoint演示文稿中的母版。母版在PPT中用于设置全局样式和布局，比如标题页、内容页等。以下是基本步骤和VBA代码示例：

1. 首先，你需要引用`Microsoft PowerPoint`对象库，这允许你在VBA中操作PowerPoint对象。

Sub ChangeSlideMaster()
    Dim pptApp As Object ' PowerPoint应用实例
    Dim pres As Presentation ' 演示文稿对象
    Dim slideMaster As SlideMaster ' 母版对象
    Dim masterIndex As Long ' 指定要使用的母版索引

    Set pptApp = CreateObject("Powerpoint.Application")
    Set pres = pptApp.Presentations.Open("路径到你的.pptx文件")

    ' 更改默认母版
    masterIndex = 1 ' 如果你想替换第一个母版，将其改为相应序号（从1开始）
    slideMaster = pres.Slides(1).SlideMaster ' 获取第一张幻灯片的母版
    slideMaster.BasedOn = pres.Masters(masterIndex) ' 设置新的母版

    ' 关闭并保存演示文稿
    pres.Save
    pres.Close
    pptApp.Quit
End Sub

在这个例子中，你需要将`"路径到你的.pptx文件"`替换为你实际的文件路径，并根据需要修改`masterIndex`变量。