如何把PPT所有公式颜色一次性改变

您所在的位置:网站首页 ppt表格字体颜色怎么改变 如何把PPT所有公式颜色一次性改变

如何把PPT所有公式颜色一次性改变

2024-07-17 19:44| 来源: 网络整理| 查看: 265

楼主:

用的是公式编辑器编辑的公式。  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