[VBA]批量替换PPT里的字体颜色

不知道为什么计组老师的大量课件字体是伤害视力的亮蓝色……看久了眼睛疼，想把颜色替换成保护视力一点的灰色，但是找了N久也没找到在图形界面上直接操作的方法，于是在MSDN上晃了晃，Google了一下，写了个VBA小脚本，只替换选定颜色，这样可以保留红色或者其他颜色的高亮，顺便把让人分心的花花背景也干掉。

Sub ReplaceColor()
Dim shape As shape
Dim slide As slide
Dim txt As TextRange
On Error Resume Next'替换背景颜色为白色
ActivePresentation.SlideMaster.Background.Fill.Solid
ActivePresentation.SlideMaster.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)For Each slide In ActivePresentation.SlidesFor Each shape In slide.ShapesSet txt = shape.TextFrame.TextRangeFor Each sentence In txt.SentencesFor Each word In sentence.Words'把蓝色的文字替换成灰色If word.Font.color.RGB = RGB(0, 0, 204) Or word.Font.color.RGB = RGB(0, 0, 122) ThenWith word.Font.color.RGB = RGB(40, 40, 40)End WithEnd IfNextNextNext
Next
End Sub

Before

After

我承认我只是在逃避复习计组………………用LP1、LP2、LP3这种标记名的汇编程序简直不想多看一眼好吗！！！

其实还有一点缺陷，不能替换掉表格里的字体……不过真的不能再浪费时间跑去查文档鼓捣了（何况我几乎不会VB=。=）明晚就考试，复习复习……

转载于:https://www.cnblogs.com/joyeecheung/p/3807285.html

[VBA]批量替换PPT里的字体颜色相关推荐

字体在ppt中可以整体替换吗_如何批量替换PPT中的字体？
如何批量替换PPT中的字体? 时间:2016-06-03来源: 网络作者: 未知点击: 次 PPT制作技巧:如何批量替换PPT中的字体? 问题:如何批量替换PPT中的字体? 解答:其实PPT有专门的功 ...
wps怎么把ppt里的字体一起保存_PPT基础教程！看懂少走弯路！
01 关于版本 wps与office之间,推荐使用office office各版本功能: office2016版本: 取色器(直接在图片上选取颜色) 布尔运算(图片.形状.文字之间进行结合,拆分,相交 ...
使用VBA脚本在ppt里实现效果比较成熟的抽奖系统
目录概述过程添加页面控件添加控件响应代码添加引用项调整奖项添加抽奖名单然后就可以使用了! 概述这个博客主要记录了使用VBA在ppt里制作较精美的抽奖系统的过程 (注:这个方法仅在Wi ...
利用VBA批量替换多个Word内容(带窗体界面/支持备份、大小写、通配符等功能)
背景:朋友工作中有多个Word文件,每次做更新时都要更新文档内的日期,每次手工更改都比较耗费时间,加上公司电脑不能装未授权的软件,且只支持英文,于是就根据这个需求,参考一些网上的代码,并做了一些升级, ...
lable里的字体颜色_?APP界面的字体规范！
文字设计是界面设计中最细节的部分,也是最不可忽视的基础部分.在界面设计过程中要考虑两大因素:文字辨识度和界面的易读性. 在任何一个有效的界面里,具有层次的设计可以将界面上重要的部分与次要的部分区分开来 ...
qlabel 里内容字体颜色位置不同样式设置_OR视觉丨这4款应用就是我手机里必备的修图APP...
几乎所有认识我的朋友们都知道我会在QQ空间.微信朋友圈等多个平台不定期分享自己修图.调色的图片,虽然都是有感而发,但也会精心去调整. 其实修图和调色并没有大家想象中的那么困难,但同时也不是简单地套一款 ...
批量修改PPT所有的字体样式
今天在百度文库上下载了一篇关于Orale优化的PPT,无奈下载下来文中字体大的离谱,而且页码不少,要是我一页一页Ctrl+A全选去修改,未免不是一件体力活,于是在网上找到了一段关于批量修改PPT字体的 ...
el-table设置单元格里的字体颜色
例如图中,设置某个单元格的字体颜色: ① el-table标签上添加属性::cell-style="cellStyle" <el-table :data="tabl ...
html5字体颜色自动转换,【转】js里alert里的字体颜色怎么设置:字体颜色方法；fontcolor(color)...
alert("投票总数不大于");不知道怎么改变字体所以查了下找到下面的信息,好东西.用法: 主要内容如下: Javascript 要点 1. 变量用Var来声明 var 某某变量 ...

[VBA]批量替换PPT里的字体颜色

[VBA]批量替换PPT里的字体颜色相关推荐

最新文章

热门文章