一、如何批量修改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
二、如何批量设置ppt字体大小
PPT每张张幻灯片的文字太多，如何进行批量更改字体，大小，颜色呢？从而节省我们时间，高效办公呢？我们可以在大纲中批量更改，方法如下。
开启分步阅读模式
操作方法
01
打开需要更改的PPT文档。
02
依次点击菜单栏视图，大纲视图。在大纲视图中会显示出所有的文字。
03
像编辑文本一样，选中所有字体。说干有机可以更改字体大小，字体颜色，以及字体。
操作方法2
01
这种方法只可以批单更改字体。
我们选中字体，鼠标右击，查看当前字体。
02
点击开始菜单下的替换按钮，有一个下拉按钮，选择替换字体。
03
让我们的仿宋字体全部替换为华文琥珀字体，点击替换即可。
04
替换完成后我们点击关闭，整得自己就都变成了华文琥珀。
三、PPT字体如何批量修改
相信很多用PPT的小伙伴都会遇到PPT怎么批量改字体的问题，那么今天小编给大家带来了PPT批量替换字体的方法分享，小伙伴们快来一起来看看吧。
具体操作如下：
1.首先如何查看一个PPT到底用到了那些字体呢?在开始-编辑-替换按钮的下拉处找到替换字体。(如下图)
2.新弹窗口的Replace的下拉窗口，可以看到打开PPT的使用过的所有字体。（如下图）
3.选中需要替换的字体，比如Roboto字体，就是限制嵌入字体，对方计算机如果没这个字体，即使嵌入字体，也会弹字体无法嵌入的出错窗口。所以我们把它替换掉。比如替换成微软雅黑字体。（如下图）
4.别以为这样点OK就可以替换了。注意看只是选中了Currentslide,什么意思，只改一张PPT的字体。我们是要替换所有的PPT页面的字体。所以做上面操作前，需要先Ctrl+A全选所有的幻灯片，然后将选项改为SelectedSlides。效果如下：(如下图)
别又以为点OK就可以成功了。很多知道这个技巧的小伙伴都会发现，为什么点了OK，还是不能替换呢?
重点来了，在操作这个替换功能之前，还需要做一件事情，那就是取消PPT的嵌入字体功能。
具体操作如下：
把文件-PowerPoint选项中，将保存中的将字嵌入文件的勾去掉。(如下图)在使用前面的替换字体功能就OK了。
总结：从这个技巧，Office就是这个德行，不是看上去简单的功能能用就马上能用的。还需要熟悉Office软件之后，在进行细节的操作。
PowerPoint|
