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