将PPT里的文字全部改变字体颜色.docx
《将PPT里的文字全部改变字体颜色.docx》由会员分享，可在线阅读，更多相关《将PPT里的文字全部改变字体颜色.docx（8页珍藏版）》请在冰点文库上搜索。
将PPT里的文字全部改变字体颜色
将PPT里的文字全部改变字体颜色
将PPT里的文字全部改变字体颜色.txt当你以为自己一无所有时，你至少还有时间，时间能抚平一切创伤，所以请不要流泪。
能满足的期待，才值得期待；能实现的期望，才有价值。
保持青春的秘诀，是有一颗不安分的心。
不是生活决定何种品位，而是品位决定何种生活。
如何将PPT里的文字全部改变字体颜色，
[标签：
字体颜色,ppt,字体]PPT里是黑底模板白色字体，想改成黑色字体白色模板打印，如何全部改掉，不要一个一个的改。
过去回答:
2人气:
2解决时间:
2009-04-2119:
33检举
满意答案一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！
SubMacro1（）Fori=1ToActiveWindow.Selection.SlideRange.SlideNumbernum=ActiveWindow.Selection.SlideRange.Shapes.CountIfi=ActiveWindow.Selection.SlideRange.SlideNumberThennum=num-1EndIfForj=1TonumActiveWindow.View.GotoSlideIndex:
=iaaa=ActiveWindow.Selection.SlideRange.Shapes（j）.NameIfInStr（1,aaa,"textbox"）>0ThenActiveWindow.Selection.SlideRange.Shapes（j）.SelectActiveWindow.Selection.ShapeRange.TextFrame.TextRange.SelectActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size=20'改成你想要的字体大小ActiveWindow.Selection.TextRange.Font.Color.RGB=RGB（Red:
=255,Green:
=0,Blue:
=0）'改成你想要的字体颜色EndIfIfInStr（1,aaa,"Rectangle"）>0ThenActiveWindow.Selection.SlideRange.Shapes（j）.SelectActiveWindow.Selection.TextRange.Font.Size=20'改成你想要的字体大小ActiveWindow.Selection.TextRange.Font.Color.RGB=RGB（Red:
=255,Green:
=0,Blue:
=0）'改成你想要的字体颜色EndIfNextjNextiEndSub答案补充格式-幻灯片设计-“幻灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色不过貌似对PPT背景也有影响你先试下不行我再研究研究检举
提问人的追问2009-04-1817:
14
好的，我试试，不行再请教一下，谢谢了检举
完善答案
ＺＡＮＥ回答采纳率:
17.0%2009-04-1817:
07评价答案
是否解决问题（参与评价0次）能解决：
0次评价成功原创加2!
部分解决：
0次评价成功原创加2!
不能解决：
0次评价成功原创加2!
是否原创答案（参与评价0次）原创：
0次评价成功原创加2!
非原创：
0次评价成功原创加2!
过去的感言：
谢谢
满意答案在视图》母版》幻灯片母版里面改。
如果是打印的话没必要改的，打印的选项里有直接打成你想要的效果的设置的，打印店的人一般都会啦，你直接拿过去给他打就可以了。
在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。
此时工作已经全部完成了。
查看源代码打印帮助
01Submyfont（）
02
03DimoShapeAsShape
04DimoSlideAsSlide
05DimoTxtRangeAsTextRange
06OnErrorResumeNext'之后的代码就算出错也会继续执行
07
08ForEachoSlideInActivePresentation.Slides
09oSlide.FollowMasterBackground=msoTrue'使用幻灯片母版背景
10ForEachoShapeInoSlide.Shapes
11
12'文本框字体设置
13WithoShape.TextFrame.TextRange.Font
14'.Name="宋体"
15'.Size=20
16.Color.RGB=RGB（Red:
=0,Green:
=0,Blue:
=0）
17'.Bold=msoFalse'粗
18.Italic=msoFalse'斜
19.Underline=msoFalse'下划线
20EndWith
21oShape.Fill.Background'文本框背景色用幻灯背景填充
22oShape.TextFrame.TextRange.IndentLevel=0
23
24'表格字体设置
25oShape.Table.Background.Fill.BackColor.RGB=RGB（Red:
=255,Green:
=255,Blue:
=255）'底色
26Fori=1TooShape.Table.Rows.Count
27Forj=1TooShape.Table.Columns.Count
28oShape.Table.Cell（i,j）.Shape.Fill.BackColor.RGB=RGB（Red:
=255,Green:
=255,Blue:
=255）
29WithoShape.Table.Cell（i,j）.Shape.TextFrame.TextRange.Font
30'.Name="宋体"
31'.Size=20
32.Color.RGB=RGB（Red:
=0,Green:
=0,Blue:
=0）
33'.Bold=msoFalse'粗
34.Italic=msoFalse'斜
35.Underline=msoFalse'下划线
36EndWith
37Nextj
38Nexti
39
40Next
41Next
42
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
ForEachoSlideInActivePresentation.Slides
ForEachoShapeInoSlide.Shapes
SetoTxtRange=oShape.TextFrame.TextRange
IfNotIsNull（oTxtRange）Then
WithoTxtRange.Font
.Name="楷体"'改成你需要的字体
.Size=20'改成你需要的文字大小
.Color.RGB=RGB（Red:
=255,Green:
=0,Blue:
=0）'改成你想要的文字颜色
EndWith
EndIf
Next
Next
EndSub
一次性修改所有ppt页面中字体的颜色和大小
有朋友问我如何一次性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！
SubMacro1（）
Fori=1ToActiveWindow.Selection.SlideRange.SlideNumber
num=ActiveWindow.Selection.SlideRange.Shapes.Count
Ifi=ActiveWindow.Selection.SlideRange.SlideNumberThen
num=num-1
EndIf
Forj=1Tonum
ActiveWindow.View.GotoSlideIndex:
=i
aaa=ActiveWindow.Selection.SlideRange.Shapes（j）.Name
IfInStr（1,aaa,"textbox"）>0Then
ActiveWindow.Selection.SlideRange.Shapes（j）.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size=20'改成你想要的字体大小
ActiveWindow.Selection.TextRange.Font.Color.RGB=RGB（Red:
=255,Green:
=0,Blue:
=0）'改成你想要的字体颜色
EndIf
IfInStr（1,aaa,"Rectangle"）>0Then
ActiveWindow.Selection.SlideRange.Shapes（j）.Select
ActiveWindow.Selection.TextRange.Font.Size=20'改成你想要的字体大小
ActiveWindow.Selection.TextRange.Font.Color.RGB=RGB（Red:
=255,Green:
=0,Blue:
=0）'改成你想要的字体颜色
EndIf
Nextj
Nexti
EndSub
答案补充
格式-幻灯片设计-“幻灯片设计-配色方案”选一个你要的颜色文字和符号都会变颜色
不过貌似对PPT背景也有影响你先试下不行我再研究研究
答案补充
额对背景没影响的可行
升级会员 