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

Question

如题所述

Answer 1

批量修改ppt字体大小及颜色的方法如下：

1、首先打开一个已经存在ppt文件。

2、打开后，ppt默认的视图是【幻灯片】视图，需要将它切换至【大纲】视图，如图：

3、所有的ppt中的文字就已经以大纲的形式显示出来了，这样对文字进行操作就可以实现了。文字进行全选，也可以使用快捷键【Ctrl+A】,如图：

4、全选之后，我们就可以调整字体了，如图：

5、同样的道理，可以使用跟字体相关的任何合法操作，比如改变字体的粗体，斜体，大小之类的功能，如图：

Answer 2

首先，将代码复制到记事本或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本回答被提问者采纳