如何批量修改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 = "楷体_GB2312" '改成你需要的字体 .Size = 20 '改成你需要的文字大小 .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色 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 = "宋体" '改成你需要的字体 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字颜色 End With End If Next End Sub