» WordАrt в vba

Как сделать так чтобы градиент заливки вордарта был не стандартным?(сейчас установлена тема шрифта msoTextEffect16) например, я хочу чтобы было 3 цвета (а не радуга), плавный переход от красного к синему , от синего к желтому.
что нужно добавить в коде?

Set newWordArt = objW.Documents(1).Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect16, Text:="Приглашение на выпускной", _
FontName:="Arial Black", FontSize:=34, _
FontBold:=msoFalse, FontItalic:=msoFalse, Left:=100, _
Top:=-180)

включай запись макроса, делай как хочешь, потом смотри, что записалось в макросе