使用VBA批量修改PPT字体样式

注意:需要用到VBA,因此可能不支持MAC

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

Step 1

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

001

Step 2

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

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
'==============================
'中文字体名称
.NameFarEast = "微软雅黑"
'==============================
'字体名称
.Name = "微软雅黑"
'==============================
'其他字体名称
.NameOther = "微软雅黑"
'==============================
'字体大小
.Size = 36
'==============================
'字体颜色
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
'==============================
'是否加粗
.Bold = False
'==============================
'是否倾斜
.Italic = False
'==============================
'是否阴影
.Shadow = False
'==============================
End With
End If
Next
Next
End Sub

Step 3

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

002