Sub tt()
Dim sh, i
i = 90
For Each sh In Me.Shapes
i = i + 25
With sh
.Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .TwoColorGradient msoGradientHorizontal, 1
    End With
    Selection.ShapeRange.IncrementLeft i
    End With
    Next
End Sub