如何将PPT里的文字全部改变字体颜色，

一次性修改所有ppt页面中字体的颜色和大小有朋友问我如何一次性修改所有ppt页面中字体的颜色和大小，由于powerpoint没有现成的菜单，今天索性写了一个宏，水平有限，不足之处请大家指正！Sub Macro1()For i = 1 To ActiveWindow.Selection.SlideRange.SlideNumber num = ActiveWindow.Selection.SlideRange.Shapes.CountIf i = ActiveWindow.Selection.SlideRange.SlideNumber Then num = num - 1End IfFor j = 1 To num ActiveWindow.View.GotoSlide Index:=i aaa = ActiveWindow.Selection.SlideRange.Shapes(j).Name If InStr(1, aaa, "text box") > 0 Then 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) '改成你想要的字体颜色 End If If InStr(1, aaa, "Rectangle") > 0 Then 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) '改成你想要的字体颜色 End IfNext jNext iEnd Sub
答案补充
格式-幻灯片设计-“幻灯片设计-配色方案” 选一个你要的颜色 文字和符号都会变颜色不过貌似对PPT背景也有影响 你先试下 不行我再研究研究

在 视图》母版》幻灯片母版 里面改。

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

这种情况非常好解决了，如果只是打印，就直接选择打印，然后在打印机选项卡左下角有个和颜色选择，选择纯黑白打印就OK了。

换一下配色方案就可以了！
03版手头没有……
07版，设计-颜色-新建主题颜色……