VB/宏高手进：求在PowerPoint中用VB编写宏脚本，批量将所有【白色】字改为【黑色】！！

Question

下面是我自己写的脚本，但是运行后仍有部分白色字没有更改颜色，求指导！
Sub changecolor()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange 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
If (oTxtRange.Font.Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)) Then
With oTxtRange.Font
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色，用RGB参数表示
End With
End If
End If
Next
Next
End Sub

Answer 1

你这代码是没有错的,
我在你的PPT文件里运行了,运行没错.
主要问题是你的PPT文件里含有图片,所以无法替换颜色.
要处理图片里的颜色只有去用图片编辑软件修改