For personal use only in study and research; not for commercial use
如何一次性更改ppt中的全部字体
如何一次性更改ppt中的全部字体起初这个我也不知道，也是在百度上搜索得来的。
非常感谢大家！当然，我也要把这样的好东西共享一下，为大家节约时间！
先看第一种方法。
一般高手都是用这种方法的，我不会用！
点击ppt中的工具里的宏选项里的宏。
然后输入你要创建的宏名点击创建按钮，在出现的页面中将下面一段代码覆盖掉原先的代码：
Sub OED01() '批量修改字体格式、大小和颜色
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In
For Each oShape In
Set oTxtRange =
If Not IsNull(oTxtRange) Then
With
.Name = "楷体_GB2312" '改成你需要的字体
.Size = 20 '改成你需要的文字大小
. = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色
End With
End If
Next
Next
End Sub
然后点击保存按钮，关闭窗口，回到ppt编辑页面。
再次点击工具里的宏选项里的宏，选择你刚编辑好的宏，点击运
行，这样你ppt中的所有字体都被改变了，想要变成什么样的字体可在代码里修改！
第二种方法，简单易懂，而且好操作！在ppt上面的工具条中，选择“视图”，然后“普通视图”，然后再
幻灯片的左边，会出现一栏。
在这一栏的上面有个选项“大纲/幻灯片”，点击“大纲”，这个时候，你激活其中任
意一张幻灯片，全选，然后改到自己想改的格式就可以了。
如何将PPT里的文字全部改变字体颜色，
PPT里是黑底模板白色字体，想改成黑色字体白色模板打印，如何全部改掉，不要一个一个的改。
一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次性修改所有ppt页面中字体的颜色
和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！Sub Macro1()For i = 1 To num = i = Then num = num - 1End IfFor j = 1 To num Index:=i aaa = If InStr(1, aaa, "text box") > 0 Then = 20 '改成你想要
的字体大小 = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色 End If If
InStr(1, aaa, "Rectangle") > 0 Then = 20 '改成你想要的字体大小 = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的字体颜色 End IfNext jNext iEnd Sub
答案补充
格式-幻灯片设计-“幻灯片设计-配色方案” 选一个你要的颜色文字和符号都会变颜色不过貌似对
PPT背景也有影响你先试下不行我再研究研究
在视图》母版》里面改。
批量修改ppt中所有字的字体颜色
本篇文章将会告诉你，怎样利用office中的宏，批量修改PPT中所有字的字体、颜色、字号、背景等。
今天我一朋友来找我，说
他想打印一个PPT，于是想把它变成白底黑字，并保存。
我翻了半天，发现office本身是没有这个功能的，于是我终于找到了一个方法
来实现。
（以下演示版本为Office2007，其他版本的类似）
1、背景模板的处理
打开幻灯片母板，选择插入新的幻灯片母板，得到一个空白的母板。
然后删除掉原来的母板。
还原普通视图，这样就去掉了幻灯片的模板背景。
2、利用宏批量改变字体
在视图中选择宏（早期版本可能要在插入中找），输入任意的宏名，点击创建。
在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。
此时工作已经全部完成了。
Sub myfont()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next'之后的代码就算出错也会继续执行
For Each oSlide In ActivePresentation . Slides
oSlide . FollowMasterBackground = msoTrue '使用幻灯片母版背景
For Each oShape In oSlide . Shapes
'文本框字体设置
With oShape . TextFrame . TextRange . Font
'.Name="宋体"
'.Size=20
. Color . RGB = RGB(Red :=0 , Green :=0 , Blue :=0 )
'.Bold=msoFalse'粗
. Italic = msoFalse '斜
. Underline = msoFalse '下划线
End With
oShape . Fill . Background '文本框背景色用幻灯背景填充
oShape . TextFrame . TextRange . IndentLevel =0
'表格字体设置
oShape . Table . Background . Fill . BackColor . RGB = RGB(Red :=255 , Green :=255 , Blue :=255 ) '底色For i =1 To oShape . Table . Rows . Count
For j =1 To oShape . Table . Columns . Count
oShape . Table . Cell(i, j) . Shape . Fill . BackColor . RGB = RGB(Red :=255 , Green :=255 , Blue :=255 )
With oShape . Table . Cell(i, j) . Shape . TextFrame . TextRange . Font
'.Name="宋体"
'.Size=20
. Color . RGB = RGB(Red :=0 , Green :=0 , Blue :=0 )
'.Bold=msoFalse'粗
. Italic = msoFalse '斜
. Underline = msoFalse '下划线
End With
Next j
Next i
Next
Next
End Sub
注意： 1.以上代码相应部分可以根据需要自行修改 2.运行后可能仍有部分是彩色。
如：表格的内嵌，项目符号编号，图片等。
前两项仍然需要手动修改颜色。
不能运行宏的解决办法
点击左上角菜单，选择PPT选项
信任中心->宏设置，选中启用所有和信任对VBA的访问，确定。
然后重启PPT即可。
For personal use only in study and research; not for commercial use.
Nur für den persönlichen für Studien, Forschung, zu kommerziellen Zwecken verwendet werden. Pour l 'étude et la recherche uniquement à des fins personnelles; pas à des fins commerciales.
толькодля людей, которые используются для обучения, исследований и не должны использоваться в коммерческих целях.
以下无正文
For personal use only in study and research; not for commercial use.
Nur für den persönlichen für Studien, Forschung, zu kommerziellen Zwecken verwendet werden. Pour l 'étude et la recherche uniquement à des fins personnelles; pas à des fins commerciales.
толькодля людей, которые используются для обучения, исследований и не должны использоваться в коммерческих целях.
以下无正文。