如何修改Powerpoint所有文字字体，批量修改ppt字体大小及颜色,
发布网友
发布时间：2022-04-28 13:42
我来回答
共2个回答
热心网友
时间：2023-10-11 00:36
选择“视图”-“母版”；
在“母版”把PPT页面上的各类字体进行统一设定；
退出母版后，看PPT是否都用的母版的格式，要确保文本框都用母版里的，不要自定义；
这样就可以做到批量修改了，只要改母版，所有PPT的字体都将随之改变。
热心网友
时间：2023-10-11 00:36
首先，将代码复制到记事本或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
热心网友
时间：2023-10-11 00:36
选择“视图”-“母版”；
在“母版”把PPT页面上的各类字体进行统一设定；
退出母版后，看PPT是否都用的母版的格式，要确保文本框都用母版里的，不要自定义；
这样就可以做到批量修改了，只要改母版，所有PPT的字体都将随之改变。
热心网友
时间：2023-10-11 00:36
首先，将代码复制到记事本或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
热心网友
时间：2023-10-11 00:36
选择“视图”-“母版”；
在“母版”把PPT页面上的各类字体进行统一设定；
退出母版后，看PPT是否都用的母版的格式，要确保文本框都用母版里的，不要自定义；
这样就可以做到批量修改了，只要改母版，所有PPT的字体都将随之改变。
热心网友
时间：2023-10-11 00:36
首先，将代码复制到记事本或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
