如何一次性更改中的全部字体.docxVIP

如何一次性更改ppt中的全部字体？ ? 如何一次性更改ppt中的全部字体？起初这个我也不知道，也是在百度上搜索得来的。非常感谢大家！当然，我也要把这样的好东西共享一下，为大家节约时间！ ??? 先看第一种方法。一般高手都是用这种方法的，我不会用！ 点击ppt中的工具里的宏选项里的宏。然后输入你要创建的宏名点击创建按钮，在出现的页面中将下面一段代码覆盖掉原先的代码： Sub OED01()??批量修改字体格式、大小和颜色Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume NextFor Each oSlide In ActivePresentation.Slides? ?For Each oShape In oSlide.Shapes? ?? ?? ? Set oTxtRange = oShape.TextFrame.TextRange? ?? ?? ? If Not IsNull(oTxtRange) Then? ?? ?? ?With oTxtRange.Font? ?? ?? ?? ? .Name = 楷体_GB2312? ?? ? 改成你需要的字体? ?? ?? ?? ? .Size = 20? ?? ? 改成你需要的文字大小? ?? ?? ?? ? .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) 改成你想要的文字颜色? ?? ?? ? End With? ?? ?? ? End If? ?Next? ?NextEnd Sub ? 然后点击保存按钮，关闭窗口，回到ppt编辑页面。再次点击工具里的宏选项里的宏，选择你刚编辑好的宏，点击运行，这样你ppt中的所有字体都被改变了，想要变成什么样的字体可在代码里修改！ ? ? ????第二种方法，简单易懂，而且好操作！在ppt上面的工具条中，选择“视图”，然后“普通视图”，然后再幻灯片的左边，会出现一栏。在这一栏的上面有个选项“大纲/幻灯片”，点击“大纲”，这个时候，你激活其中任意一张幻灯片，全选，然后改到自己想改的格式就可以了。 如何将PPT里的文字全部改变字体颜色， 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