幻灯片中字体

wucnustc 发表于: 2009-9-09 14:49 来源: 扑奔PPT网

小香猪 发表于 2009-9-09 16:37:46

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

庭院深深 发表于 2009-9-10 17:52:45

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

yes! 发表于 2009-9-10 22:41:34

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

endymiond 发表于 2009-9-19 13:38:39

统一修改字体

爱情单行道 发表于 2009-9-20 14:52:48

不错学习了

nataliexiaobai 发表于 2009-9-20 15:17:09

这个问题之前很多人问过，方法也有很多。
在这里，简单总结一下。
第一种 模板统一更改
方法：在制作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完成后，需要整体字体的更换。
不知道如何加载宏文件的朋友，请点击：
https://www.pooban.com/html/10/t-36010.html

第三种 替换字体功能
方法：单击“开始”选项卡中的“替换”按钮，在列表中选择“替换字体”命令。在对话框中指定需要替换的字体
这个要注意，如果你之前的PPT字体基本一致的话，就很好用，但是如果每一页都会有一些差别，就比较麻烦。

以上三种方法，大家可以根据需要选择。
就我个人而言，第一种简单、快捷最好用。

ppt009 发表于 2009-9-20 20:39:37

非常详细 学习了~