如何批量修改ppt字体大小及颜色

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《如何批量修改ppt字体大小及颜色》，欢迎阅读！

如何修改Powerpoint所有文字字体，批量修改ppt字体大小及颜色

首先，将代码复制到记事本或word中，

然后，打开你需要修改的PPT，

然后创建宏，再运行宏！ 即可实现，看图操作吧！



Sub OED01() '批量修改字体格式、大小和颜色

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 = 20 .Color.RGB = black

End With End If

Next Next End Sub






//更改具备相同文字区域的ＰＰＴ批量修改（跟据上面的例字整理所得） Sub aa()

'

' 宏由 wsqxushui 创建，日期 2011-3-16。

'

Dim oShape As Shape Dim oSlide As Slide

Dim oTxtRange As TextRange

On Error Resume Next

For Each oSlide In ActivePresentation.Slides '遍历所有的幻灯片 Set oShape = oSlide.Shapes("Text Box 4") '每个幻灯片中文字区域 Set oTxtRange = oShape.TextFrame.TextRange '每个区域中文字

If Not IsNull(oTxtRange) Then

With oTxtRange.Font

.Name = "宋体" '改成你需要的字体

本文来源：https://www.dy1993.cn/bBBK.html