|
|
这个问题之前很多人问过，方法也有很多。
在这里，简单总结一下。
第一种 模板统一更改
方法：在制作PPT前，先设置好文字的格式，然后在模板上编辑，这样再添加新PPT时，只用enter就好了。
适合在制作PPT前使用。
第二种 加载宏命令
方法：在PPT里，加载一个宏文件即可。但要注意设置字体、字号、颜色等程序语言。
具体程序语言如下：
Sub Macro1()
For i = 1 To ActiveWindow.Selection.SlideRange.SlideNumber
num = ActiveWindow.Selection.SlideRange.Shapes.Count
If i = ActiveWindow.Selection.SlideRange.SlideNumber Then
num = num - 1
End If
For 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 If
Next j
Next i
End Sub
适合在制作PPT完成后，需要整体字体的更换。
不知道如何加载宏文件的朋友，请点击：
第三种 替换字体功能
方法：单击“开始”选项卡中的“替换”按钮，在列表中选择“替换字体”命令。在对话框中指定需要替换的字体
这个要注意，如果你之前的PPT字体基本一致的话，就很好用，但是如果每一页都会有一些差别，就比较麻烦。
以上三种方法，大家可以根据需要选择。
就我个人而言，第一种简单、快捷最好用。
|
|
