Office学习社区 › PowerPoint之家 › 幻灯片中字体

user_tgocxxwb 发表于 2009-9-9 14:49:00

幻灯片中字体

能否将做好的幻灯片（有很多张）中字体、字号最后全选来设置。

moonabc3 发表于 2009-9-9 15:53:25

使用替换字体功能可以快速将演示文稿中的某种字体替换为另一种字体
单击“开始”选项卡中的“替换”按钮，在列表中选择“替换字体”命令。在对话框中指定需要替换的字体

jeking521 发表于 2009-9-9 15:55:31

在模板中进行格式的统一修改吧，这样方便快捷！

tianjinliwei 发表于 2009-9-9 17:28:37

视图里面的幻灯片模板，统一修改字体

hgjfdj2i 发表于 2009-9-9 17:39:41

统一修改字体

2088alex 发表于 2009-9-9 18:32:27

不错学习了

user_lgpnqenz 发表于 2009-9-9 18:43:53

这个问题之前很多人问过，方法也有很多。
在这里，简单总结一下。
第一种 模板统一更改
方法：在制作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字体基本一致的话，就很好用，但是如果每一页都会有一些差别，就比较麻烦。
以上三种方法，大家可以根据需要选择。
就我个人而言，第一种简单、快捷最好用。

user_pfkiqvac 发表于 2009-9-9 19:03:08

非常详细 学习了~

查看完整版本: 幻灯片中字体