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

发布网友发布时间：2022-04-23 08:05

共1个回答

热心网友时间：2022-06-13 22:10

一次性修改所有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背景也有影响你先试下不行我再研究研究