使用宏批量修改PPT2010公式颜色?
发布网友
共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追问大神~~
不过这个好像只是把背景颜色改动了，要改变公式里面字的颜色要怎么弄呢？ 改哪几行的代码？
没学过这个语言，不会改，求解。。
