ppt批量一键修改所有字体

步骤：

1. 打开 PowerPoint 并进入开发工具选项卡：
   • 如果开发工具选项卡未显示，点击 文件 > 选项 > 自定义功能区，然后在右侧的 主选项卡 中勾选 开发工具，点击 确定。
2. 打开 VBA 编辑器：
   • 在 开发工具 选项卡中，点击 Visual Basic，或者直接按快捷键 Alt + F11。
3. 插入模块：
   • 在 VBA 编辑器中，点击 插入 > 模块，插入一个新模块。
4. 输入宏代码：
   • 将以下代码复制并粘贴到模块中：

Sub ChangeFont()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRange As TextRange

    ' 遍历每张幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历幻灯片中的每个形状
        For Each shp In sld.Shapes
            ' 检查形状是否有文本
            If shp.HasTextFrame Then
                If shp.TextFrame.HasText Then
                    Set txtRange = shp.TextFrame.TextRange
                    ' 设置中文字体为黑体，英文字体为新罗马
                    With txtRange.Font
                        .Name = "黑体" ' 中文字体
                        .NameFarEast = "黑体" ' 中文字体
                        .NameAscii = "Times New Roman" ' 英文字体
                        .NameOther = "Times New Roman" ' 其他字符字体
                    End With
                End If
            End If
        Next shp
    Next sld

    MsgBox "字体修改完成！", vbInformation
End Sub

5. 运行宏：
   • 关闭 VBA 编辑器，回到 PowerPoint。
   • 按 Alt + F8 打开宏运行窗口，选择 ChangeFont，然后点击 运行。

代码说明：

• ActivePresentation.Slides：表示当前演示文稿中的所有幻灯片。
• shp.HasTextFrame：检查形状是否有文本框。
• txtRange.Font.Name：设置字体名称。
  • NameFarEast：设置中文字体。
  • NameAscii：设置英文字体。
  • NameOther：设置其他字符字体。

注意事项：

1. 保存文件为启用宏的格式：
   • 如果需要保存宏代码，必须将文件保存为 .pptm 格式（启用宏的 PowerPoint 文件）。
2. 信任中心设置：
   • 如果宏被禁用，需进入 文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置，选择 启用所有宏 或 禁用所有宏并发出通知。
3. 兼容性问题：
   • 如果你的 PowerPoint 版本较旧，可能需要调整代码中的部分属性。