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

ScienceSoft
ScienceSoft
ScienceSoft
243
文章
69
评论
3月 25, 201502:04:16
评论

如果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

weinxin
我的微信公众号
分享科研软件、科研方法,为你的科研助力。
ScienceSoft
  • 本文由 发表于 3月 25, 201502:04:16
  • 转载请务必保留本文链接:https://www.sciencesoft.cn/ppt-font-color-changing/
如何使用Undisclosed Recipients发送邮件 办公软件

如何使用Undisclosed Recipients发送邮件

之前在发email的时候,一直以为“密件抄送”这四个字非常的神秘,好像是说把邮件加密然后抄送给别人。结果,我错了。望文生义的无知是多么的愚蠢!!! OK,开始上课了。 在用电邮发email的时候,第一...
Office终于原生支持SVG格式图片 办公软件

Office终于原生支持SVG格式图片

最近发现,Office终于原生支持SVG格式的图片了,真是太好了。(我用的Office 365,可以随时更新到最新版本) 以前,我们在Excel中作图之后,如果要插入到Word中,想要得到清晰的图片,...
强大的全文本搜索工具——AnyTXT Searcher 办公软件

强大的全文本搜索工具——AnyTXT Searcher

之前曾给大家介绍过搜索工具Everything,搜索速度很快,但是不足的是这个只能根据文件名进行搜索。但是有时候我们不一定记得文件名,只记得一点点文件的内容,有没有能够根据文件内容进行搜索的工具呢?这...
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: