将PPT里的文字全部改变字体颜色Word下载.docx

将PPT里的文字全部改变字体颜色Word下载.docx

《将PPT里的文字全部改变字体颜色Word下载.docx》由会员分享，可在线阅读，更多相关《将PPT里的文字全部改变字体颜色Word下载.docx（9页珍藏版）》请在冰豆网上搜索。

）>

0ThenActiveWindow.Selection.SlideRange.Shapes（j）.Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size=20'

改成你想要的

字体大ActiveWindow.Selection.TextRange.Font.Col

or.RGB=RGB（Red:

=255,Green:

=0,Blue:

=0）'

改成你想要的字体颜色EndIfIf

InStr（1,aaa,"

Rectangle"

ActiveWindow.Selection.TextRange.Font.Siz

20'

改成你想要的字体大小

ActiveWindow.Selection.TextRange.Font.Col

=0）

改成你想要的字体颜色EndIfNextjNext

iEndSub答案补充格式-幻灯片设计-“幻灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色不过貌似对PPT背景也有影响你先试下不行我再研究研究检举提问人的追问2009-04-1817:

14好的，我试试，不行再请教一下，谢谢了检举完善答案

ＺＡＮＥ回答采纳率:

17.0%2009-04-1817:

07评价答案是否解决问题（参与评价0次）能解决：

0次评价成功原创加2!

部分解决：

0次评价成功原创加2!

不能解决：

是否原创答案（参与评价0次）原创：

0次评价成功原创加2!

非原创：

过去的感言：

谢谢

满意答案在视图》母版》幻灯片母版里面改。

如果是打印的话没必要改的，打印的选项里有直接打成你想要的效果的设置的，打印店的人一般都会啦，你直接拿过去给他打就可以了。

在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。

此时工作已经全部完成了。

查看源代码打印帮助

01Submyfont（）

02

03DimoShapeAsShape

04DimoSlideAsSlide

05DimoTxtRangeAsTextRange

06OnErrorResumeNext'

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

08

For

Each

oSlide

In

ActivePresentation.Slides09oSlide.FollowMasterBackgroundmsoTrue'

使用幻灯片母版背景

10ForEachoShapeInoSlide.Shapes

11

With

12'

文本框字体设置

13

oShape.TextFrame.TextRange.Font

14'

.Name="

宋体"

15'

.Size=20

16.Color.RGB=RGB（Red:

=0,

Green:

17

.Bold=msoFalse

19线

.Underline=msoFalse'

下划

20

EndWith

21

oShape.Fill.Background'

文本框

背景色用幻灯背景填充

22

oShape.TextFrame.TextRange.IndentLevel=0

23

25

oShape.Table.Background.Fill.BackColor.RG

B=RGB（Red:

=255,Blue:

=255）'

底色

1To

26Fori

oShape.Table.Rows.Count

28

27Forj=1TooShape.Table.Columns.Count

oShape.Table.Cell（i,

j）.Shape.Fill.BackColor.RGB=RGB（Red:

=255,

=255）

29WithoShape.Table.Cell（i,

j）.Shape.TextFrame.TextRange.Font

30'

31'

32.Color.RGB=RGB（Red:

34.Italic=msoFalse'

35.Underline=msoFalse

下划线

36EndWith

37Nextj

38Nexti

39

40Next

41Next

43EndSub

更改PPT所有页面字体与页面颜色的技巧（绝对

实用）（2009-11-0322:

17:

41）标签：

电脑ppt配色方案powerpoint文本框杂谈分类：

各类资料

在评估期间，无心插柳地探索到一个新技术，就是关于PPT课件统一更改字体颜色和页面背景颜色的问题。

我想大家都遇到过类似情况，就是有时想把PPT打印出来备课用，可以在纸上写写画画对课件做标注之类的，但若是你的PPT原本是深色背景，如我有时喜欢用深蓝背景、白色字体，这样打印时很费墨的，因为打印出来整张纸背景都是深灰色或黑色！

这时你肯定想同时更改所有页面的背景颜色和字体颜色（大款及不想为基金

省钱的除外）。

几页还好说，一页一页改就是了，但我的PPT往往一章都在一起，多达100多页，怎么办？

人民的智慧是无穷的！

本人自己发现加上网络资料，总结了三种方法（备注：

以下方法在Powerpoint2000中使用，对于更高版本，操作情况类似）：

1.最简单最好用的方法（五星推荐）！

打开你要打印的PPT课件，点击视图——黑白，OK！

你发现什么了？

你的所有PPT都变成了黑白灰色，包括图片，所有页面背景是正常白色，所有字体是黑色（包括链接），原来你用的设计模板的颜色样式这时完全不起作用了！

放心去打印吧！

而且你还会发现一点，就是当你关闭文件时，并无提示让你重新保存；

而当你再一次打开这个PPT，你会惊喜地发现，PPT并无改变，页面背景、字体颜色等还是你原来的色彩，也即“点击视图——黑白”这样的操作完全不改变你的原文件，改变的只是视图！

另外，如果你不希望打印原来模板的背景图形，可以在任一页面无内容的空白处点击右键，选择背景，选择忽略母版的背景图形，再选择全部应用即可，但这时就会改变你的原文件，不过没关系，打印完后，再改回来就是了。

我写此文前搜索了大量相关网页，似乎还没看到有此方法。

专利！

！

！

2.方法2。

打开你要打印的PPT课件，在任

一页面无内容的空白处点击右键，选择幻灯片配色方案，你可以点击选用标准配色方案中有黑白灰三色的方案；

也可自定义配色方案颜色，把所有背景色变为白色、字体变为黑色等。

但如此做有一不完善之处，即那些你在做PPT时设置了特定填充色和特定字体颜色的文本框（不是你的PPT模板默认的颜色）会改成其设定颜色的反色，也即这些文本框需要你手动修改，好在一般这样的文本框不多。

3.方法3。

不仔细说了，用宏语言！

相信大多数人不熟悉，也不想找这个麻烦。

有兴趣的可搜索网上相关信息。

最后说说有关打印PPT的知识，还是和节省资源有关。

想必你不希望一张A4纸只打印一张PPT，但你若用Powerpoint自带的打印工具在一张纸上打印多张PPT，会发现每个PPT页面都很小，这时你别使用Powerpoint自带的打印工具设置，而应该用打印机属性来设置在一张纸上打印多张PPT；

或者使用软件fineprint，这个软件就是为一张纸上打印多张编写的，使用极其灵活，支持多种文件格式。

给PPT全文修改字体颜色

电脑笔记2009-02-0313:

26阅读180评论0字号：

大大中中小小说易则易，说难则难当选中全部PPT页面时，字体选项是灰的，无法

一次性地修改字体颜色视图，展开全部，此处可以全选文字，修改颜色即可。

此方法适合于PPT2003版本，其它版本可以自行尝试。

补充：

此方法也只能解决部分问题，有时候文本框内的文字还是无法选中。

首先，将代码复制到记事本或word中，然后，打开你需要修改的PPT，然后创建宏，再运行宏！

即可实现，看图操作吧！

SubOED01（）'

批量修改字体格式、大小和颜色

DimoShapeAsShape

DimoSlideAsSlide

DimoTxtRangeAsTextRange

OnErrorResumeNext

ForEachoSlideIn

ActivePresentation.Slides

ForEachoShapeInoSlide.ShapesSetoTxtRangeoShape.TextFrame.TextRangeIfNotIsNull（oTxtRange）ThenWithoTxtRange.Font

.Name="

改成你需要的字体

.Size=20的文字大小

.Color.RGB

EndWithEndIf

Next

楷体"

'

改成你需要

=RGB（Red:

改成你想要的文字颜色

EndSub

To

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

SubMacro1（）Fori

ActiveWindow.Selection.SlideRange.SlideNumbernum

ActiveWindow.Selection.SlideRange.Shapes.

Count

If

ActiveWindow.Selection.SlideRange.SlideNu

mberThen

num=num-1

EndIf

Forj=1Tonum

ActiveWindow.View.GotoSlideIndex:

=iaaa

ActiveWindow.Selection.SlideRange.Shapes（j）.Name

IfInStr（1,aaa,"

0Then

ActiveWindow.Selection.SlideRange.Shapes（j）.Select

改成你想要的字体大小

ActiveWindow.Selection.TextRange.Font.Color.RGB=RGB（Red:

=0）改成你想要的字体颜色

e=20'

改成你想要的字体大小

Nextj

Nexti

答案补充

格式-幻灯片设计-“幻灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色不过貌似对PPT背景也有影响你先试下不行我再研究研究答案补充

额对背景没影响的可行