经验直达：
- 如何把ppt的字体颜色都变成黑色
- ppt怎么设置统一字体颜色
- 如何批量修改ppt字体大小及颜色
一、如何把ppt的字体颜色都变成黑色
1、新建并打开一个PPT文件 。
2、在页面的空白处点击鼠标右键，在弹出的菜单中选择“设置背景格式” 。
3、之后在页面的右侧会出现“对象属性”，可以选择填充的类型 。
4、如果选择“纯色填充”可以根据需要选择需要的颜色 。
5、如果选择“渐变填充”，可以选择对应的渐变色进行设置 。
6、如果选择“图片或纹理填充”，可以在下方的“插入图片来自”中选择电脑中的图片作为背景 。
7、设置好后 ， 如果需要全部PPT页面都应用一样的背景，可以点击“应用到全部”即可 。
二、ppt怎么设置统一字体颜色
ppt是办公室白领一族天天都需要打交道的工具，做一个好多的ppt，不但讲究内容的充实，而且要讲究整体的美观和统一 。如何统一ppt字体颜色?我就为你解如何统一ppt字体颜色 。
ppt统一字体颜色的方法
首先找到使用使用说明来批量修改，我们使用的替换功能里的替换字体 。
在导航栏里开始——替换 ， 如下图 。
小箭头下拉——》替换字体
在弹出的对话框中选择你所需要的字体和需要替换成的字体，点击确定即可
我这里以宋体被替换为现今流行的微软雅黑为示范，选择好，点击替换即可 。
如果你的ppt文件够大的话，会停在这个画面很久 ， 甚至会出现ppt没响应或死掉的风险，不要急 ， 慢慢等，文件大 ， 所以搜索一遍和替换需要时间的 。等一会就好了 。
完成之后，你会发现上下都是同样的字体了，你再在上面找刚刚的宋体，已经找不到了，说明该ppt中已经没宋体了 ， 全部替换成功了 。
ppt放映控制快捷键
N、Enter、Page Down、右箭头(→)、下箭头(↓)或空格键：执行下一个动画或换页到下一张幻灯片
P、Page Up、左箭头(←)，上箭头(↑)或Backspace：执行上一个动画或返回到上一个幻灯片
B或句号：黑屏或从黑屏返回幻灯片放映
W或逗号：白屏或从白屏返回幻灯片放映
s或加号：停止或重新启动自动幻灯片放映
Esc、Ctrl Break或连字符(-)：退出幻灯片放映
E：擦除屏幕上的注释
H：到下一张隐藏幻灯片
T：排练时设置新的时间
O：排练时使用原设置时间
M：排练时使用鼠标单击切换到下一张幻灯片
同时按下两个鼠标按钮几秒钟：返回第一张幻灯片
Ctrl P：重新显示隐藏的指针或将指针改变成绘图笔
Ctrl A：重新显示隐藏的指针和将指针改变成箭头
Ctrl H：立即隐藏指针和按钮
Ctrl U：在15秒内隐藏指针和按钮
Shift F10(相当于单击鼠标右键)：显示右键快捷菜单
Tab：转到幻灯片上的第一个或下一个超级链接
三、如何批量修改ppt字体大小及颜色
【ppt怎么设置统一字体颜色 如何把ppt的字体颜色都变成黑色】即可实现，看图操作吧！ Sub OED01() '批量修改字体格式、大小和颜色 Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For 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 Next End Sub //更改具备相同文字区域的ＰＰＴ批量修改（跟据上面的例字整理所得） Sub aa() ' ' 宏由 wsqxushui 创建，日期 2011-3-16. ' Dim oShape As Shape Dim oSlide As Slide Dim oTxtRange As TextRange On Error Resume Next For Each oSlide In ActivePresentation.Slides '遍历所有的幻灯片 Set oShape = oSlide.Shapes("Text Box 4") '每个幻灯片中文字区域 Set oTxtRange = oShape.TextFrame.TextRange '每个区域中文字 If Not IsNull(oTxtRange) Then With oTxtRange.Font .Name = "宋体" '改成你需要的字体 .Size = 14 '改成你需要的文字大小 .Color.RGB = black '改成你想要的文字颜色 End With End If Next End Sub