How to color all the arrows ( shape) in all the slides of power point to red using VBA?

Solution #2: Google "How to color all arrows in a powerpoint presentation red"
Then figure it out yourself.


Solution #3: Try something like the following:

Sub ColorArrowsRed()

Dim sl As Slide
Dim sh As Shape

    For Each sl In ActivePresentation.Slides
        For Each sh In sl.Shapes
            'Debug.Print sl.Name, sh.Name, sh.Line.ForeColor.RGB
            If InStr(sh.Name, "Arrow") > 0 Then
                sh.Line.ForeColor.RGB = RGB(256, 0, 0)
            End If
        Next
    Next

End Sub

As always, have nice day.

.