采用宏一键修改PPT字体样式

PPT制作中经常遇到需要批量替换字体的问题，手动修改费时费力，而自带的替换字体无法实现加粗/斜体/更改字号大小等功能。针对这个问题，可以采用宏实现批量化操作。

1. 在需要修改的ppt中，点击开发工具-Visual Basic，跳转到VB编辑窗口
   
2. 在VBAProject中，右键创建模块
   
3. 在弹出的窗口中输入以下代码：

Sub ChangeFontSizeOfSpecificFont()
    Dim sld As Slide
    Dim shp As Shape
    Dim originalFontName As String
    Dim newFontSize As Single
    
    ' 设置要修改的字体名称和新的字号
    originalFontName = "微软雅黑" ' 修改为你想要更改的字体名称
    newFontSize = 60 ' 修改为你想要设置的新字号
    
    ' 遍历幻灯片中的所有形状
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            ' 检查形状是否有文本框并且字体是指定字体
            If shp.HasTextFrame Then
                With shp.TextFrame.TextRange.Font
                    ' 检查字体名称并设置新的字号
                    If .Name = originalFontName Then
                        .NameFarEast = "方正小标宋简体"
                        .Size = newFontSize
                        .Bold = msoTrue
                    End If
                End With
            End If
        Next shp
    Next sld
End Sub

.Name = originalFontName 表示搜索所需替换的字体，Then后面的部分可以对字体、字号大小、粗体、斜体等进行设置

4. 点击上方小三角形或按F5编译，即可实现批量替换