将ppt里的文字全部改变字体颜色.docVIP

将PPＴ里的文字全部改变字体颜色 ———————————————————————————————— 作者: ———————————————————————————————— 日期: 将PＰT里的文字全部改变字体颜色．txt当你以为自己一无所有时，你至少还有时间,时间能抚平一切创伤,所以请不要流泪。能满足的期待，才值得期待；能实现的期望，才有价值。保持青春的秘诀,是有一颗不安分的心。不是生活决定何种品位，而是品位决定何种生活。如何将PＰT里的文字全部改变字体颜色， [ 标签:字体　颜色，pｐt,字体 ］　PPＴ里是黑底模板白色字体,想改成黑色字体白色模板打印，如何全部改掉,不要一个一个的改。 过去 回答:2 人气:2　解决时间：２009-0４-21 19：33　 　检举 满意答案一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次性修改所有ｐｐt页面中字体的颜色和大小，由于ｐoｗerpoiｎt没有现成的菜单，今天索性写了一个宏，水平有限,不足之处请大家指正!Suｂ　Macro1()Fｏr i　＝　１ Ｔo AｃｔiｖeWindow.Seｌecｔion.SlideRange．SliｄeＮumｂer 　 num = ActiｖeWinｄoｗ．Sｅlectｉon．SliｄｅＲａnge.Ｓhａpes.CountＩf i ＝ ActiｖeWindｏｗ.Seleｃtion.SlideRanｇe.SlｉdeＮumｂer Then　　　 ｎum = ｎum － 1Eｎd IｆＦor ｊ = １　To　nｕm　 　 ＡｃtivｅWinｄoｗ.View．GoｔｏSlide Iｎdeｘ:=i 　aａa =　ActiｖｅWｉｎdｏw.Selection.SｌideRanｇe.Ｓｈaｐes(j）.Name 　 　Iｆ InStr（1, aａa， "teｘt　boｘ") > 0 Theｎ 　 AｃｔiveWiｎdｏw.Seｌｅｃtion.SｌｉdｅRanｇｅ．Shapes(j).Ｓelｅct 　ActｉveWinｄow.Selectｉoｎ.ShapｅRange.TｅxtFrame.ＴexｔRange.Seｌect 　 ＡctiveＷindow.Ｓelection.ShａｐeRaｎge.ＴextFrame．TeｘtRange.Fonｔ.Size =　20 ＇改成你想要的字体大小 　 ActiveＷindow.Seleｃｔｉon．TextＲａnge．Ｆｏnｔ.Color.ＲＧＢ =　RGＢ（Red:=255， Gｒｅｅｎ:=0, Bｌue:=0) '改成你想要的字体颜色 End If If InSｔｒ(１， ａａa, "Reｃtaｎgle")　＞ 0 Then ＡctiveWindow．Selｅcｔｉon．ＳliｄeRaｎge．Shapeｓ(j).Ｓelecｔ AｃtiveＷindｏw.Seｌectiｏn.TexｔRａｎge.Font.Ｓiｚe =　20 '改成你想要的字体大小　 ActiｖeWiｎdow.Ｓeｌectiｏｎ.TextRaｎge.Ｆonｔ.Ｃolor.ＲGＢ = RGB（Red:=255, Grｅen：=0， Ｂlue:=０） '改成你想要的字体颜色 　Ｅnd ＩfNｅxt　jNext　iEnd Ｓub答案补充 格式－幻灯片设计-“幻灯片设计-配色方案” 选一个你要的颜色 文字和符号都会变颜色不过貌似对PPT背景也有影响　你先试下　不行我再研究研究检举 提问人的追问 　 20０9-04-18　１7:14 好的,我试试，不行再请教一下，谢谢了检举 完善答案 ZANＥ 回答采纳率:17.0%　200９-０4－1８　１７:０７ 评价答案 是否解决问题(参与评价0次)　能　　解 　决： 0次评价成功原创加2！部分解决： 0次评价成功原创加２!不能解决: 0次评价成功原创加2！是否原创答案（参与评价0次) 原 　 创: 0次评价成功原创加2！非原创: 0次评价成功原创加2！过去的感言： 谢谢 满意答案在　视图》母版》幻灯片母版 里面改。如果是打印的话没必要改的,打印的选项里有直接打成你想要的效果的设置的，打印店的人一般都会啦，你直接拿过去给他打就可以了。 在新代码窗口中，删除原来的内容,并复制以下内容,然后运行宏(若不能运行，请看下面)。此时工作已经全部完成了。 查看源代码打印帮助 0１ Sub myfonｔ(） 02 　 03 Ｄim ｏShａpe As Shape　 04 Dim　oSｌiｄe Aｓ Slidｅ 　 ０5　Diｍ ｏＴxtRange　As ＴeｘtRａnge 06 On Eｒrｏｒ Resuｍe Nexｔ 　 ＇之后的代码就算出错也会继续