使用宏批量修改PPT2010公式颜色？

Question

老师的PPT是深色背景浅色字的，公式是用office的公式编辑器做的，怎么使用宏批量修改公式的颜色？ 不要用母版视图或者是图片格式什么的方法，不可行！
之前看到过用宏修改的代码，但是运行不了，求大神给个代码！ 感激不尽！！！
要是真心可以运行的话，可以提高财富奖励的。。。。 大谢大谢！！

Answer 1

Sub 批量更改PPT中公式的背景色()
Dim aSlide As Slide, aShape As Shape
On Error Resume Next '忽略错误
For Each aSlide In ActivePresentation.Slides '遍历幻灯片
For Each aShape In aSlide.Shapes '遍历图层对象
If aShape.Type = 7 Then '公式
With aShape
.Fill.ForeColor.RGB = RGB(255, 255, 0)
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.BackColor.RGB = vbYellow
.Fill.Transparency = 0#
End With
End If
Next
Next
End Sub追问

大神~~
不过这个好像只是把背景颜色改动了，要改变公式里面字的颜色要怎么弄呢？ 改哪几行的代码？
没学过这个语言，不会改，求解。。