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