Sub Test() Dim d As Document Dim s As Shape Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an example") Set t = s.Text t.Story.Words.Last.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(0, 0, 255), cdrConicalFountainFillEnd Sub