如题所述
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-12-20
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背景也有影响 你先试下 不行我再研究研究本回答被提问者采纳