如何修改 Powerpoint 所有文字字体，批量修改 ppt 字体大小及颜色首先，将代码复制到记事本或 word 中，然后，打开你需要修改的 PPT，然后创建宏，再运行宏！即可实现，看图操作吧！Sub OED01() 批量修改字体格式、大小和颜色Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesSet oTxtRange = oShape.TextFrame.TextRangeIf Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = 微软雅黑 .Size = 20 .Color.RGB = black End WithEnd IfNextNextEnd Sub /更改具备相同文字区域的批量修改（跟据上面的例字整理所得）Sub aa() 宏由 wsqxushui 创建，日期 2011-3-16。Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.Slides 遍历所有的幻灯片Set oShape = oSlide.Shapes(Text Box 4)每个幻灯片中文字区域Set oTxtRange = oShape.TextFrame.TextRange 每个区域中文字If Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = 宋体 改成你需要的字体 .Size = 14 改成你需要的文字大小.Color.RGB = black 改成你想要的文字颜色End WithEnd IfNextEnd Sub