深圳市扫地机器人50强:如何一次性更改ppt中的全部字体？

来源：百度文库编辑：中财网时间：2024/04/29 21:10:58

如何一次性更改ppt中的全部字体？

(2009-05-24 16:02:24)

转载标签：

杂谈

如何一次性更改ppt中的全部字体？起初这个我也不知道，也是在百度上搜索得来的。非常感谢大家！当然，我也要把这样的好东西共享一下，为大家节约时间！

先看第一种方法。一般高手都是用这种方法的，我不会用！

点击ppt中的工具里的宏选项里的宏。然后输入你要创建的宏名点击创建按钮，在出现的页面中将下面一段代码覆盖掉原先的代码：

SubOED01()  '批量修改字体格式、大小和颜色
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 InoSlide.Shapes
     SetoTxtRange = oShape.TextFrame.TextRange
     If NotIsNull(oTxtRange) Then
     WithoTxtRange.Font
       .Name ="楷体_GB2312"     '改成你需要的字体
       .Size =20     '改成你需要的文字大小
       .Color.RGB= RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色
     EndWith
     EndIf
Next
Next
End Sub

在线等！！PPT如何改全部字体？如何更改电子邮箱中的字体？如何更改电子邮箱中的字体？如何一次性刷新CAD中的字体? 如何能使qq中的好友一次性全部删除？ word中如何能一次性更新全部文本框中的域如何将EXECL数据表中的超链接一次性全部筛选出来如何对*.fla文件中的字体进行擦除或更改 PPT如何改全局字体？如何更改字体光标如何更改窗口字体如何更改系统字体怎样更改游戏中的字体？如何把雅虎邮箱中的邮件一次性全部导出到本地硬盘上？如何一次性使用Dreamweaver更改代码如何一次性更改所有图片的路径如何一次性更改所有网页标题如何一次性更改所有文件夹的图标？ NOKIA7260 如何一次性全部删除信息报告如何更改XP默认字体 blog字体颜色如何更改？如何更改系统的字体？如何更改WINDOWS默认字体？ PPT如何调整字体的行间距？？