将PPT里的文字全部改变字体颜色.doc

《将PPT里的文字全部改变字体颜色.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、将PPT里的文字全部改变字体颜色.txt当你以为自己一无所有时，你至少还有时间，时间能抚平一切创伤，所以请不要流泪。能满足的期待，才值得期待；能实现的期望，才有价值。保持青春的秘诀，是有一颗不安分的心。不是生活决定何种品位，而是品位决定何种生活。如何将PPT里的文字全部改变字体颜色，[标签：字体颜色,ppt,字体]PPT里是黑底模板白色字体，想改成黑色字体白色模板打印，如何全部改掉，不要一个一个的改。过去回答:2人气:2解决时间:2009-04-2119:33检举满意答案一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次

2、性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！SubMacro1()Fori=1ToActiveWindow.Selection.SlideRange.SlideNumbernum=ActiveWindow.Selection.SlideRange.Shapes.CountIfi=ActiveWindow.Selection.SlideRange.SlideNumberThennum=num-1EndIfForj=1TonumActiveWindo

3、w.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.TextRang

4、e.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'改成你想要的字体大小ActiveWindo

5、w.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

6、次评价成功原创加2!部分解决：0次评价成功原创加2!不能解决：0次评价成功原创加2!是否原创答案(参与评价0次)原创：0次评价成功原创加2!非原创：0次评价成功原创加2!过去的感言：谢谢满意答案在视图》母版》幻灯片母版里面改。如果是打印的话没必要改的，打印的选项里有直接打成你想要的效果的设置的，打印店的人一般都会啦，你直接拿过去给他打就可以了。在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。此时工作已经全部完成了。查看源代码打印帮助01Submyfont()0203DimoShapeAsShap

7、e04DimoSlideAsSlide05DimoTxtRangeAsTextRange06OnErrorResumeNext'之后的代码就算出错也会继续执行0708ForEachoSlideInActivePresentation.Slides09oSlide.FollowMasterBackground=msoTrue'使用幻灯片母版背景10ForEachoShapeInoSlide.Shapes1112'文本框字体设置13WithoShape.TextFrame.TextRange.Font14'.Name="宋体"15'.

8、Size=2016.Color.RGB=RGB(Red:=0,Green:=0,Blue:=0)17'.Bold=msoFalse'粗18.Italic=msoFalse'斜19.Underline=msoFalse'下划线20EndWith21o