如何一次性更改中的全部字体.docx

仅供个人参考

仅供个人参考

不得用于商业用途

不得用于商业用途

Forpersonaluseonlyinstudyandresearch;notforcommercialuse

如何一次性更改ppt中的全部字体？

如何一次性更改ppt中的全部字体？起初这个我也不知道，也是在百度上搜索得来的。非常感谢大家！当然，我也要把这样的好东西共享一下，为大家节约时间！

先看第一种方法。一般高手都是用这种方法的，我不会用！

点击ppt中的工具里的宏选项里的宏。然后输入你要创建的宏名点击创建按钮，在出现的页面中将下面一段代码覆盖掉原先的代码：

SubOED01()批量修改字体格式、大小和颜色DimoShapeAsShape

DimoSlideAsSlide

DimoTxtRangeAsTextRange

OnErrorResumeNext

ForEachoSlideInActivePresentation.Slides

ForEachoShapeInoSlide.Shapes

SetoTxtRange=

IfNotIsNull(oTxtRange)Then

WithoTxtRange.Font

.Name=楷体_GB2312 改成你需要的字体

.Size=20 改成你需要的文字大小

.Color.RGB=RGB(Red:=255,Green:=0,Blue:=0)改成你想要的文字颜色EndWith

EndIf

Next

Next

EndSub

然后点击保存按钮，关闭窗口，回到ppt编辑页面。再次点击工具里的宏选项里的宏，选择你刚编辑好的宏，点击运行，这样你ppt中的所有字体都被改变了，想要变成什么样的字体可在代码里修改！

第二种方法，简单易懂，而且好操作！在ppt上面的工具条中，选择“视图”，然后“普通视图”，然后再幻灯片的左边，会出现一栏。在这一栏的上面有个选项“大纲/幻灯片”，点击“大纲”，这个时候，你激活其中任意一张幻灯片，全选，然后改到自己想改的格式就可以了。

如何将

如何将PPT里的文字全部改变字体颜色，

PPT里是黑底模板白色字体，想改成黑色字体白色模板打印，如何全部改掉，不要一个一个的改。

一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！SubMacro1()Fori=1Tonum=i=Thennum=num-1EndIfForj=1Tonum

Index:=iaaa=IfInStr(1,aaa,textbox)0Then =20改成你想要的字体大

小=RGB(Red:=255,Green:=0,Blue:=0)改成你想要的字体颜色EndIfIfInStr(1,aaa,

Rectangle)0Then

Blue:=0)改成你想要的字体颜色答案补充

=20改成你想要的字体大小

EndIfNextjNextiEndSub

=RGB(Red:=255,Green:=0,

格式-幻灯片设计-“幻灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色不过貌似对PPT

背景也有影响你先试下不行我再研究研究

在视图》母版》里面改。

批量修改ppt中所有字的字体颜色

本篇文章将会告诉你，怎样利用office中的宏，批量修改PPT中所有字的字体、颜色、字号、背景等。今天我一朋友来找我，说他想打印一个PPT，于是想把它变成白底黑字，并保存。我翻了半天，发现office本身是没有这个功能的，于是我终于找到了一个方法来实现。（以下演示版本为Office2007，其他版本的类似）

1、背景模板的处理

打开幻灯片母板，选择插入新的幻灯片母板，得到一个空白的母板。

然后删除掉原来的母板。还原普通视图，这样就去掉了幻灯片的模板背景。

2、利用宏批量改变字体

在视图中选择宏（早期版本可能要在插入中找），输入任意的宏名，点击创建。

在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。此时工作已经全部完成了。

Sub

myfont()

Dim

oShapeAs

Shape

Dim

oSlideAs

Slide

Dim

oTxtRange

AsTextRange

OnErrorResumeNext之后的代码就算出错也会继续执行

ForEachoSlideIn