将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)'
在新代码窗口中,删除原来的内容,并复制以下内容,然后运行宏(若不能运行,请看下面)。
此时工作已经全部完成了。
查看源代码打印帮助
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背景也有影响你先试下不行我再研究研究
答案补充
额对背景没影响的可行