谈到VBA代码，一般人想到的就是EXCEL VBA，没错，EXCEL VBA超级强大，可是你注意过PPT里也有VBA吗？
不要逼我，逼急了我会变形！
今天就被人逼急了！ 
做了洋洋洒洒近60页的PPT，自我感觉还良好，配色什么的也还过得去。谁知送到印刷店准备印刷，对方说了一句，颜色太深，打不出来！哭晕！好吧，服了你，改淡色背景，那倒很轻松，可是白色字怎么改呀！为了达到效果，这些字基本使用的都是自定义文本框。死的不是一般惨！一个个改？有这心，没这命。想到我最拿手的VBA代码来，无非是循环嘛，来，谁怕谁，把EXCEL的VBA搬过来，三除二下搞定。
以下是批量修改幻灯片每个文本框字体颜色的代码，敬请收藏！
Sub 变PPT字体颜色()
Dim Oshape As Shape
Dim Oslide As Slide
Dim Otextrange As TextRange
On Error Resume Next
For Each Oslide In ActivePresentation.Slides
For Each Oshape In Oslide.Shapes
Set otxtrange = Oshape.TextFrame.TextRange
If Not IsNull(otxtrange) Then
With otxtrange.Font
.Color.RGB = RGB(0, 0, 0)
End With
End If
Next
Next

End Sub
以上代码复制到VBA编辑器内，F5运行，敢叫日月换天地！