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

哆啦Ci梦

已于 2022-10-25 16:39:37 修改

阅读量3.4k

点赞数 2

分类专栏： VBA 文章标签：开发语言

于 2022-08-21 11:33:54 首次发布

本文链接：https://blog.csdn.net/u010046615/article/details/126448940

版权

VBA 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了如何使用VBA在Microsoft PPT 2021中快速统一设置所有文本框的字体和字号。执行此脚本会全局更改字体样式，建议在完成PPT内容后再应用，以免影响局部个性化设置。通过调整`.Name`来修改字体，`.Size`调整字号，`.Color.RGB`用于设置颜色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

适用于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