批量修改 PPT 字体样式

MSDN：https://msdn.microsoft.com/en-us/vba/powerpoint-vba/articles/font-object-powerpoint

Step 1

点击选项卡上的 开发工具 > 宏，随便取个名字并创建。

Step 2

复制以下代码到编辑框里边，覆盖原有内容。

Sub ChangeFont()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
Set oTxtRange = oShape.TextFrame.TextRange
If Not IsNull(oTxtRange) Then
With oTxtRange.Font
'──────────────────────────────
.Name = "微软雅黑" '字体名称
.NameFarEast = "微软雅黑" '中文字体名称
.NameOther = "微软雅黑" '其他字体名称
.Size = 36 '字体大小
.Color.RGB = RGB(0, 0, 0) '字体颜色
.Bold = False '是否加粗
.Italic = False '是否倾斜
.Underline = False '是否有下划线
'──────────────────────────────
End With
End If
Next
Next
End Sub

• 参照注释修改字体属性值即可。

• 可删除对应代码以保留原有属性。例：删除 …'字体大小 这行代码，字体大小保持不变。

• 字体颜色使用 RGB 值表示，例如黑色 = (0,0,0)，白色 = (255,255,255)。

• 某些属性使用布尔类型，是 = True，否 = False。

• 除此之外还可修改下标、阴影效果等。请参阅 MSDN 文档。

Step 3

按键盘 F5 或点击上方菜单栏：运行 > 运行子过程。

• 如果 PPT 页数较多，可能会无响应较长时间。