如何把PPT所有公式颜色一次性改变 |
您所在的位置:网站首页 › ppt表格字体颜色怎么改变 › 如何把PPT所有公式颜色一次性改变 |
楼主: 用的是公式编辑器编辑的公式。 google了一圈,没有满意的答案。因为公式较多,一个一个手工改工作量巨大。 多谢!
3楼: 我知道如何批量修改文档中全部公式的大小的方法,修改颜色没试过,不知道行不行,你可以尝试一下。 1、双击文档中任意一个公式,把这个公式修改成你需要的格式,如修改大小为12,或者10, 等等。 2、选中这个公式,在打开的这个公式的工具栏上,点击preference, 然后把这个公式的style 存成一个eqp 文件,最好重命名一下,比如 size_10.eqp 等等 3、在word工具栏上的mathtype这一栏中,在format 子类下,有一个'format equations', 点击这个,然后选中你刚刚保存的preference 文件,然后在下面的range 中选择whole document。 然后就可以了。。 !!注意,如果公式较多的话,需要较长的时间,请耐心等待,并且请提前备份好源文档。
4楼: 多谢,可是我安装的mathtype6.7a里面没有看到format equation这个选项。 不过我在网上找到一个人写的一个宏,还挺有效的,虽然只是改变一下颜色,而且只是 黑白,但解决了我的问题。 Sub EquationColor() Dim oSld As Slide Dim oShp As Shape Dim oShapes As Shapes Dim textColor As RGBColor For Each oSld In ActivePresentation.Slides Set oShapes = oSld.Shapes For Each oShp In oShapes If oShp.Type = 7 Then oShp.PictureFormat.ColorType = msoPictureBlackAndWhite oShp.PictureFormat.Brightness = 0 oShp.PictureFormat.Contrast = 1 oShp.Fill.Visible = msoFalse End If Next oShp Next oSld End Sub
以上转自:http://www.newsmth.net/nForum/#!article/NewSoftware/57571 =========================================分割线============================================ PPT批量修改公式文字颜色 打开视图→模板,删去ppt底色。 回到普通视图模式,打开工具→宏→宏,在宏名处随便写几个字母,点击创建。 将自动生成语句全部删除,替换成如下程序,保存后关闭。 再打开打开工具→宏→宏,宏名处为Recolor,点击运行后保存。(若未出现运行选项,打开工具→宏→安全性,设置为中,重新打开文件) 再次打印预览时可见公式。实现代码如下: Sub EquationColor() Dim oSld As Slide Dim oShp As Shape Dim oShapes As Shapes Dim textColor As RGBColor For Each oSld In ActivePresentation.Slides Set oShapes = oSld.Shapes For Each oShp In oShapes If oShp.Type = 7 Then oShp.PictureFormat.ColorType = msoPictureBlackAndWhite oShp.PictureFormat.Brightness = 0 oShp.PictureFormat.Contrast = 1 oShp.Fill.Visible = msoFalse End If Next oShp Next oSld End Sub 以上转自:http://blog.chinaunix.net/uid-25652313-id-3538404.html
CSDN博主 注:以上技巧仅为转载,博主还未试验,仅作为留存! |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |