MS PPT一键设置全部文本框字体和大小(VBA)

适用于Microsoft PPT 2021版本。

作用：将PPT全部文本框进行字体和字体大小设置。

弊端：执行后会使全部字体被改变，建议在写完ppt后，先执行该脚本，再把局部字体手动调整。

配置参数修改：

.Name用于字体名称修改

.Size用于文字大小修改

.Color.RGB用于配置三原色

Sub PPT一键设置字体和字体大小()
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 = "宋体"       '更改为需要的字体
             .Size = 16       '改为所需的文字大小
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色，用RGB参数表示。这里代表黑色
          End With
          End If
   Next
   Next
End Sub