点击这里查看首页

批量修改PPT字体和颜色的方法


来源:网络
发布时间:2011-09-20 09:13:00
查看次数:

内容提要:如果ppt幻灯片里使用了很多字体,现在需要将所有ppt的文字全部统一改为一种字体(如宋体),

    如果ppt幻灯片里使用了很多字体,现在需要将所有ppt的文字全部统一改为一种字体(如宋体),很多人可能想到的都是使用强大的宏来实现,其实大可不必。因为微软已经给我们提供了一种批量修改PPT字体的方法。
第一步:在ppt的普通视图中,点击左边一张ppt,然后按Ctrl+A全选所有幻灯片。
第二步:在“格式”菜单中选择“替换字体”,分别选中需要替换的字体和替换后的字体,确定即可。如下图所示。
修改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) '改成想要的文字颜色,用RGB参数表示
          End With
          End If
   Next
   Next
End Sub
以下版权声明必须遵守,转载时必须以链接的形式注明如下信息:
原载于 散人笔记
原文地址 http://www.eryi.org/blog/post/modify-ppt-fonts-color.html

相关文章
·Word高级替换技巧03-05
·删除 word 中所有的中文字符03-17
·Office2003 Word/Excel等双击默认打开方式修复12-12
·Excel如何批量插入分页符02-12
·教培网网上培训快速及格技巧05-04
·开机提示ntldr is missing解决方法08-13
·小册子打印代码07-07
·如何压缩word?10-19
·使用SQL语句清空数据库所有表的数据11-08
·隐藏Excel错误结果显示的三种方法10-12
最新文章
·一列数据轻松转换成多行多列02-05
·MPC-HC如何加速播放不变音调?01-06
·利用打印机迁移功能实现三个步骤快速批量安装所有网10-27
·视频号视频的四种下载方法07-07
·Win10系统开机启动文件夹在哪里?04-16
·十秒免工具激活windows 1002-25
·批量替换word文档中的第一行作为文件的文件名06-21
·自动对一个文件夹下的N个word文件批量执行一个宏06-21
·Win10电脑开机启动慢?教你只需三步,电脑开机速度快06-11
·连接打印机时需要输入用户名密码怎么办?05-15
阅读排行