Change PowerPoint colors

ppt_change_color.vba

Sub ChangeTextColors()

    Dim oSl As Slide

    Dim oSh As Shape
    Dim x As Long
    Dim lOldColor As Long
    Dim lNewColor As Long
    ' Set lOldcolor to the RGB value you're looking for
    lOldColor = RGB(205, 32, 38)
    ' Set lNewColor to the RGB value you want to change it to
    lNewColor = RGB(33, 71, 71)

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes
            If oSh.HasTextFrame Then
                If oSh.TextFrame.HasText Then
                    With oSh.TextFrame.TextRange
                        For x = 1 To .Runs.Count
                            If .Runs(x).Font.Color.RGB = lOldColor Then
                                .Runs(x).Font.Color.RGB = lNewColor
                            End If
                        Next
                    End With
                End If
            End If
        Next
    Next
End Sub