TextRange.Fill

Property Fill As Fill

The Fill property returns a Fill object..

The Fill property returns a read-only value.

The following code example applies a conical fountain fill to the last word of the paragraph text

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), cdrConicalFountainFill 
End Sub