如何修改Powerpoint所有文字字体，批量修改ppt字体...

发布网友 发布时间：2022-02-21 11:14

我来回答

共2个回答

热心网友 时间：2022-02-21 12:43

选择“视图”-“母版”；

在“母版”把PPT页面上的各类字体进行统一设定；

退出母版后，看PPT是否都用的母版的格式，要确保文本框都用母版里的，不要自定义；

这样就可以做到批量修改了，只要改母版，所有PPT的字体都将随之改变。

热心网友 时间：2022-02-21 14:01

首先，将代码复制到记事本或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 = "楷体_GB2312" '改成你需要的字体.Size = 20 '改成你需要的文字大小Dim 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