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.
.