change the color of a wordart gradiant

[seba64]

Hi

I add a word art to a sheets. In excel, i select the msoTextEffect13 and change then colors (5) with diferents blue tones, but in saved macro the colors not change. Thats the code of macro:

ActiveSheet.Shapes.AddTextEffect(msoTextEffect23, "Title Here", "+mn-lt", 54, msoTrue, msoFalse, 30, 10).Select
    With Selection.ShapeRange.TextFrame2
        .TextRange.Font.NameComplexScript = "Brush Script Std"
        .TextRange.Font.NameFarEast = "Brush Script Std"
        .TextRange.Font.Name = "Brush Script Std"
        .ThreeD.RotationZ = -10
    End With

How can change the 5 colors or if this code is wrong how can get what i want ?