Object Model Reference : Classes : T : TextRange : Properties : TextRange.Fill |
Property Fill As Fill
Member of TextRange
The Fill property returns the fill (or Fill object) applied to a text range.
The Fill property returns a read-only value.
The following VBA 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 |
Copyright 2013 Corel Corporation. All rights reserved.